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ABSTRACT 

Procedures  to  execute  specific  activities  are  usually 
communicated  in  writing  throughout  large  organizations.  This 
thesis  presents  a  prototype  example  of  interactive  software 
as  an  alternative  to  the  promulgation  of  written  instruc¬ 
tions.  The  Naval  Postgraduate  School  supply  requisition 
generation  process  has  been  distilled  into  a  single  software 
package,  the  Supply  Requisition  Database  (SRdb),  which 
prepares  requisition  documents  and  maintains  a  local  data¬ 
base  of  items  ordered.  Emphasis  is  placed  upon  ease  of  use 
and  labor  efficiency.  Although  limited  initial  testing  of 
the  software  is  reported,  SRdb  is  offered  primarily  as  a 
tool  for  further  research  of  the  concept. 
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THESIS  DISCLAIMER 


The  reader  is  cautioned  that  computer  programs  developed 
in  this  research  may  not  have  been  exercised  for  all  cases 
of  interest.  While  every  effort  has  been  made,  within  the 
time  available,  to  ensure  that  the  programs  are  free  of 
computational  and  logic  errors,  they  cannot  be  considered 
validated.  Any  application  of  these  programs  without  addi¬ 
tional  verification  is  at  the  risk  of  the  user. 
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A.  PURPOSE 

Each  day  military  commands  collectively  promulgate 
thousands  of  instructions,  notices,  and  orders  which  subor¬ 
dinates  are  expected  to  read,  understand,  and  execute. 
Although  the  authors  of  these  written  guidelines  strive  for 
clarity,  the  onus  to  understand  them  is  placed  upon  the 
addressee.  With  the  proliferation  of  personal  computers  the 
potential  now  exists  to  achieve  new  dimensions  of  clarity 
and  ease  of  understanding  through  the  issuance  of  interac¬ 
tive  software  vice  voluminous  written  instructions. 

Due  to  its  capability  to  present  a  series  of  screens  of 
information,  software  may  be  viewed  as  a  communication 
medium.  It  is  somewhat  unique  in  that  the  user  may  interact 
with  the  software,  for  example,  requesting  further  'help'  or 
clarification  of  particular  procedures.  The  software  also 
may  be  used  to  prepare  reports  by  querying  the  user  for 
inputs  according  to  a  specific  logic.  No  pretention  is  made 
that  software  is  the  appropriate  medium  for  the  promulgation 
of  all  instructions.  In  fact,  it  is  quite  probable  that  it 
is  cost  efficient  in  only  a  small  percentage  of  situations. 

The  purpose  of  this  paper  is  to  examine  and  propose  a 
software-oriented  alternative  to  the  current  manual, 
instruction-driven  supply  requisition  process  at  the  Naval 
Postgraduate  School  (NPS),  Monterey,  CA.  Although  the  model 
presented  addresses  specific  details  of  the  NPS  requisition 
transactions,  it  is  felt  that  the  general  concepts  could  be 
extrapolated  easily  to  other  locations  which  also  have 
significant  open  purchase  activity  and  a  multitude  of 
funding  sources. 


The  current  NPS  requisition  process  was  studied  in 
detail  by  reviewing  the  NPS  Supply  Department  Customer 
Service  Manual  [Ref.  1]  and  the  applicable  NPS  Comptroller 
instruction  [Ref.  2].  Several  modifications  to  these 
written  quidelines  were  discussed  at  a  two  hour  requisition 
training  seminar  presented  by  the  Supply  Department  for  NPS 
personnel  [Ref.  3].  Finally,  a  working  knowledge  of  the 
current  system  was  attained  through  the  interviewing  of 
several  persons  involved  in  various  stages  of  the  requisi¬ 
tion  process  at  NPS.  In  addition  to  gaining  a  better 
understanding  of  the  precise  operation  of  the  current 
system,  suggestions  for  improvement  were  solicited. 

Thesis  research  visits  were  made  to  the  Fleet  Hospital 
Support  Office,-  Alameda,  CA,  Naval  Supply  Center,  Oakland, 
CA,  and  the  Supply  Automation  Office  at  NAS  Miramar,  CA,  to 
review  general  supply  automation  efforts  throughout  the 
Navy. 

C.  ASSUMPTIONS  AND  SCOPE 

The  primary  thrust  of  this  paper  is  to  present  an 
example  of  interactive  software  as  an  alternative  to  a 
written  instruction.  Although  cost  effectiveness  will  be 
briefly  examined  as  a  relevant  issue,  a  complete  cost/ 
benefit  analysis  is  considered  to  be  outside  the  scope  of 
this  thesis. 

A  requisition  may  be  viewed  as  a  compilation  of  data 
elements  such  as  nomenclature,  stock  number,  quantity,  ship¬ 
ping  codes,  etc.  ,  which  pertain  to  the  item  being  ordered. 
During  the  course  of  research,  some  data  elements  required 
on  requisition  documents  appeared  to  be  a  duplication  of 
information,  and  other  codes  were  discovered  to  be  meaning¬ 
less  in  the  NPS  environment.  Since  it  is  not  the  purpose  of 
this  thesis  to  present  an  analysis  of  information  and  codes 
required  on  each  requisition  document,  these  problems  will 
be  left  to  others. 


For  the  purposes  of  this  paper,  every  element  of  infor¬ 
mation  and  code  which  is  required  by  applicable  instructions 
and  manuals  [Refs.  1,2]  are  assumed  to  be  necessary  and 
appropriate.  It  is  recognized  that  some  of  these  requisi¬ 
tion  forms  are  in  DOD-wide  usage,  and  therefore,  they  may 
utilize  codes  which  perhaps  have  meanings  in  other  environ¬ 
ments.  An  argument  may  easily  be  made  that  a  locally 
produced  requisition  form  would  be  more  responsive  to  the 
needs  of  NPS  supply  customers,  however,  this  is  also  felt  to 
be  an  issue  which  is  outside  the  realm  of  this  thesis. 

It  is  important  to  note  that  this  paper  focuses  upon  the 
accurate  generation  of  requisition  documents  via  a  session 
with  interactive  software,  as  opposed  to  reliance  solely 
upon  written  instructions.  There  is  no  intent  to  present  an 
analysis  of  the  entire  NPS  requisition  /  purchase  process. 
For  further  information  the  reader  is  referred  to  the  bibli¬ 
ography,  which  cites  several  previous  theses  which  have 
fully  discussed  these  other  issues  concerning  the  design  and 
analysis  of  the  NPS  supply  system. 


A.  NPS  REQUISITION  SYSTEM  CHARACTERISTICS 

During  FY  85,  the  NPS  Supply  Department  processed  over 
17,000  requisitions  with  a  total  value  in  excess  of 
$13,341,000.  Due  to  the  academic  nature  of  its  mission,  the 
Naval  Postgraduate  School  acquires  a  large  percentage  of  its 
material  via  open  purchase  as  opposed  to  reliance  upon  stan¬ 
dard  government  stock  sources.  Less  than  15%  of  FY  85  NPS 
requisitions  were  filled  from  standard  stock,  resulting  in 
almost  15,000  open  purchase  actions  valued  at  $12,900,000 
[Ref.  4]. 

NPS  is  somewhat  unique  in  the  number  of  different 
funding  sources  available  for  locally  generated  requisi¬ 
tions.  Aside  from  the  normal  departmental  Operating  Target 
(OPTAR)  funds  provided  in  the  NPS  Operations  and 
Maintenance,  Navy  (O&MN)  budget,  large  amounts  of 
Reimbursable  Funds  (RF)  (also  called  research  funds)  are 
provided  by  others  commands  which  are  sponsoring  research 
work  at  NPS.  This  wide  variety  of  funding  sources  will  be 
found  to  introduce  a  degree  of  complexity  in  accurate  gener¬ 
ation  of  requisition  documents. 

The  current  NPS  Supply  requisition  process  appears  to  be 
a  manual  anachronism  in  the  midst  of  a  relatively  computer¬ 
ized  environment.  At  present,  no  phase  of  the  requisition 
cycle  has  been  touched  by  automation.  This  chapter  will 
describe  the  present  procedures  for  generation  of  NPS  requi¬ 
sition  documents. 

B.  REQUISITION  OVERVIEW 

Each  NPS  department  has  designated  one  or  more  personnel 
to  serve  as  the  focal  point  in  preparing  and  tracking  requi¬ 
sition  documents.  For  academic  departments  this  person  is 


usually  a  clerk/typist  serving  in  a  GS-3  to  GS-5  billet. 
Persons  desiring  to  order  materials  usually  notify  the 
department  clerk,  who  prepares  the  requisition  documents  and 
keeps  a  record  of  the  transaction.  The  form  of  the  initial 
request  to  the  department  clerk  varies  from  one  department 
to  the  next,  running  the  gamut  from  a  phone  call,  to  a  xerox 
copy  of  an  advertisement  with  items  circled,  to  a  type¬ 
written  memorandum. 

The  department  requisition  clerk  prepares  the  documents 
in  accordance  with  the  applicable  local  instructions 
[Refs.  1,2].  After  the  documents  are  prepared,  the  clerk 
will  obtain  the  appropriate  signature  prior  to  routing  out 
of  the  department  for  further  action.  See  Figure  2. 1. 


Figure  2. 1  Typical  Requisition  Flow 


If  the  requisition  is  to  be  funded  from  department  OPTAR 
funding,  the  department  chairman  or  his  designated 


representative  will  sign  the  documents  before  they  are 
forwarded  to  supply.  If  the  requisition  is  to  be  funded  from 
Reimbursable  Funds  (RF),  the  documents  will  be  signed  by 
the  professor  controlling  the  specific  RF  account.  RF-funded 
requisitions  are  sent  to  supply  via  the  Research 
Administration  Office  which  screens  the  request  to  ensure 
that  the  funds  are  being  spent  in  accordance  with  any 
limitations  placed  by  the  sponsoring  command. 

C.  TYPES  OF  REQUISITIONS 

This  section  will  describe  the  different  types  of  requi¬ 
sitions  and  the  associated  documents. 

1.  Ready  Supply  Requests 

To  expeditiously  satisfy  customer  requests,  the  most 
frequently  requested  consumable  materials  are  stocked 
locally  at  the  NPS  Ready  Supply  Store  (RSS).  Materials 
stocked  in  the  RSS  for  the  convenience  of  the  NPS  customer 
are  listed  in  the  NPS  RSS  Catalog  [Ref.  5].  Customers  may 
obtain  items  from  the  RSS  by  forwarding  a  Material 
Requirements  Document  (Figure  2.2)  to  the  RSS.  RSS  personnel 
will  phone  the  exact  total  cost  of  the  desired  items  back  to 
the  department  requisitions  clerk,  who  subsequently  prepares 
a  'Money  Value  Only'  DD-1348  (Figure  2.3)  to  be  sent  to  the 
RSS. 

The  NPS  Office  Supply  Issueroom  (OSI)  is  a  subunit 
of  the  RSS,  where  frequently  used  office  materials,  such  as 
pens  and  folders,  are  available  in  limited  quantities  upon 
presentation  of  a  locally  produced  office  supply  request 
form.  Figure  2.  4. 

The  OSI  maintains  a  running  tally  of  the  value  of 
items  issued  and  'bills'  each  department  monthly.  A  depart¬ 
ment  'pays  its  bills'  through  issuance  of  a  'Money  Value 
Only'  DD-1348,  as  seen  in  Figure  2.3.  The  DD-1348  is  an 
accounting  document,  and  as  such,  it  must  be  signed  in  the 


Figure  2.  4  Office  Supply  Request  Form 

upper  right  corner  by  an-  individual  designated  by  the 
department  as  authorized  to  obligate  funds  [  Ref.  1:  p.  4-6] . 


2.  Standard  Stock  Requests 

Many  commonly  used  items  have  been  purchased  in 
volume,  assigned  National  Stock  Numbers  (NSN),  and  stocked 
at  various  stockpoints  throughout  the  nation  by  the 
Department  of  Defense  (DOD)  or  the  General  Services 
Administration  ( GSA) .  All  standard  stock  items  are  requisi¬ 
tioned  using  a  DD-1348,  Figure  2.5,  coded  in  accordance  with 
the  Military  Standard  Requisitioning  and  Issue  Procedure 
(MILSTRIP)  [Ref.  6:  pp.  1-62].  A  separate  DD-1348  must  be 
used  for  each  line  item  of  standard  stock. 


Figure  2.5  DD-1348  Standard  Stock  Requisition 


3.  Open  Purchase 

Items  which  are  not  available  from  standard  stock 
may  be  purchased  directly  from  commercial  sources.  Although 
departments  are  issued  standard  stock  catalogs  annually,  it 
is  not  uncommon  for  items,  which  are  available  from  standard 
stock,  to  be  erroneously  requested  on  an  open  purchase 
requisition.  All  open  purchase  requisitions  are  screened  by 
the  NPS  Supply  Department  for  availability  in  standard 
stock.  If  the  same  or  'like'  item  is  found,  the  requisition 
is  returned  to  the  originator  with  a  memorandum  attached 
citing  the  apparent  standard  stock  substitution  nomenclature 
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and  NSN.  If  the  standard  stock  item  is  acceptable  to  the 
customer,  the  department  requisition  clerk  will  generate  a 
new  DD-1348  for  the  appropriate  standard  stock  item.  If  it 
is  felt  that  the  standard  stock  alternative  is  inadequate,  a 
justification  memorandum  to  the  NPS  Supply  Department  must 
accompany  the  return  of  the  original  requisition. 
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Figure  2. 6  DD-1348  Open  Purchase  Requisition  ( single  item) 

An  open  purchase  requisition  for  a  single  item  may 
be  made  using  a  DD-1348  as  seen  in  Figure  2. 6.  A  Standard 
Form  36  (SF-36)  is  required  to  be  completed  if  more  than  one 
item  is  requested,  or  if  the  item  nomenclature  and 
description  of  specifications  will  not  fit  in  blocks  8-22  on 
DD-1348  [Ref.  1:  p.  4-5J  .  An  SF-36  (Figure  2.7)  is  viewed 
as  a  continuation  of  the  DD-1348  (Figure  2.8)  in  these 
instances. 

It  is  important  to  note  that  each  DD-1348  or 
DD-1348/SF-36  combination  may  specify  only  one  vendor.  Items 
desired  from  different  vendors  require  separate  requisition 
documents. 

For  accounting  purposes,  items  which  are  classified 
under  different  elements  of  expense  must  not  be  combined  on 
a  single  requisition  [Ref.  2:  p.  3).  For  example,  an  order 
for  a  personal  computer  and  related  software,  even  from  a 
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Figure  2. 8  DD-1348  Open  Purchase  Requiring  an  SF-36 

single  vendor,  requires  at  least  two  requisitions  because 
the  expense  element  codes  for  software  and  hardware  are 
different  [Ref.  2:  encl(3)  pp.  1-2]. 

a.  Alternative  Sources  Memorandum 

Recently  publicized  purchases  of  '$600  ashtrays' 
and  '$900  hammers'  have  focused  intense  congressional 
scrutiny  upon  DOD  procurement.  In  an  attempt  to  ensure 
efficient  use  of  tax  dollars  through  competitive  purchases, 
all  open  purchase  requisitions  with  a  total  value  exceeding 
$1,000  are  now  required  to  list  a  minimum  of  three  alterna¬ 
tive  vendors  for  the  requested  materials.  The  alternative 
suppliers  may  be  shown  in  the  space  remaining  at  the  bottom 
of  an  SF-36,  or  a  separate  memorandum  may  be  attached  to  the 
requisition  [Ref.  3]. 


b.  Sole  Source  Justification  Memorandum 


An  exception  to  the  Alternative  Sources 
Memorandum  occurs  when  the  customer  is  able  to  document  the 
requirement  for  a  sole  source  procurement.  Contracting  offi¬ 
cers  are  'bound  by  law  to  seek  competition'  unless  it  can  be 
demonstrated  that  valid  reasons  exist  which  preclude  compe¬ 
tition;  therefore,  requests  for  sole  source  procurement 


actions  are  very  carefully  reviewed  [Ref.  1:  p.  4-27]. 
Central  to  the  Sole  Source  Justification  is  a  description  of 
the  critical  features  which  limit  its  availability  to  a 
single  source,  as  well  as  a  certification  that  this  is  the 
only  product  or  service  which  will  adequately  meet  the 
intended  use  or  application. 


>  V. 


III.  SRdfe 


A.  CONCEPT 

The  Supply  Requisition  Database  (SRdb)  software  was 
written  to  permit  the  generation  of  primary  requisition 
documents  through  an  interactive  computer  session.  The 
target  user,  a  department  requisition  clerk,  initiates  the 
order  process  by  answering  a  logical  series  of  plain 
language  queries.  Since  the  algorithms  for  placing  the 
appropriate  codes  in  the  proper  boxes  on  the  documents  are 
written  into  the  software,  the  user  is  freed  from  memorizing 
or  copying  cryptic  codes.  After  all  required  questions  have 
been  answered,  the  user  is  prompted  to  load  the  proper  blank 
document  into  the  printer.  Precise  document  formatting  is 
provided  in  the  SRdb  software,  eliminating  all  user  format 
errors. 

The  SRdb  program  is  designed  to  extract  key  elements 
from  each  document  and  maintain  a  requisition  database  which 
can  be  used  at  the  department  level  in  lieu  of  the  current 
ad  hoc  recordkeeping.  SRdb  files  are  written  to  the  selected 
disk  drive  as  per  the  SRdb  configuration  file.  The  configu¬ 
ration  file  is  used  to  maximize  the  user  friendly  nature  of 
the  software  and  free  the  user  from  repetitive  typing  of 
elements  which  remain  constant  on  each  requisition,  such  as 
department  name,  phone,  building,  etc.  The  beta  (initial 
test)  copy  of  the  SRdb  package  was  preconfigured  for  use  in 
the  NPS  Administrative  Sciences  department. 

B.  SYSTEM  REQUIREMENTS 

SRdb  is  designed  to  run  on  an  IBM  or  IBM  compatible  CPU 
with  a  minimum  of  256K  of  memory  and  2  disk  drives. 
Although  it  will  operate  small  databases  on  floppy  disk 
drives,  it  is  highly  recommended  that  a  hard  disk  drive  be 
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utilized  if  any  of  the  following  requirements  are  exceeded 
on  an  FY  basis: 


•  50  accounts, 

•  150  suppliers, 

•  1500  requisitions,  or 

•  2000  line  items. 

Either  a  color  or  a  monochrome  monitor  is  acceptable.  A 
friction  feed  printer  is  essential  for  printing  of  forms, 
however,  a  tractor  feed  printer  is  adequate  for  printing  out 
reports  and  memorandums. 

Since  SRdb  is  essentially  a  dBASE  III  application 
program,  a  copy  of  dBASE  III  is  required  for  program  execu¬ 
tion.  The  beta  copy  of  SRdb  is  configured  such  that  dBASE 
III  and  the  SRdb  program  modules  are  resident  on  a  single 
disk  to  be  maintained  in  the  'A'  disk  drive.  The  database 
and  index  files  are  located  on  the  'B'  drive.  These  drive 
assignments  are  optional  and  may  easily  be  changed  by  modi¬ 
fying  the  configuration  file.  For  further  details 

concerning  system  sizing  requirements,  the  reader  is 
referred  to  Appendix  C,  'Database  Structure'. 

C.  FEATURES 

The  general  features  of  the  SRdb  software  are  described 
below.  The  reader  is  referred  to  the  SRdb  User's  Manual  in 
Appendix  B  for  detailed  operational  descriptions. 

1.  Document  Generation 

The  two  primary  requisition  documents,  DD-1348  and 
SF-36,  are  readily  generated  by  SRdb.  SRdb  handles  complex 
code  assignment  in  document  boilerplate  according  to  the 
type  of  requisition.  Julian  dates  are  automatically  calcu¬ 
lated,  including  leap  year  corrections.  It  also  calculates 
the  total  value  of  the  requisition  required  on  the  SF-36  and 
in  block  'U'  of  the  DD-1348  [Ref.  1:  pp.  4-9  -  4-15]. 


When  ready  to  print,  the  program  pauses  for  the  user 
to  indicate  that  the  proper  form  has  been  loaded  into  the 
printer.  After  the  document  has  been  printed,  SRdb  permits 
the  user  to  immediately  reprint  it  in  case  the  printer  was 
misloaded,  or  there  were  any  mechanical  malfunctions. 
Although  both  forms  are  available  on  continuous-feed  stock, 
it  is  believed  that  it  generally  would  be  impractical  to  use 
such  forms  due  to  the  variety  of  requisition  types.  For 
example,  each  SF-36  would  necessarily  be  followed  by  a 
DD-1348  as  described  in  Chapter  Two,  therefore,  a  friction 
feed  printer  is  viewed  as  most  practical.  A  single 
SRdb-generated  DD-1348  or  SF-36  document  would  be  indistin¬ 
guishable  from  the  same  document  prepared  by  a  clerk-typist 
on  an  electric  typewriter,  except  perhaps  by  the  lack  of 
overstrike  errors. 

2.  Accounts  Database 

SRdb  allows  the  clerk  to  select  the  appropriate 
account  from  an  on-line  listing,  eliminating  the  repetitive 
entry  of  account  information.  Due  to  the  proliferation  of  RF 
projects  throughout  NPS,  it  is  not  uncommon  for  a  single 
department  to  have  access  to  30  or  more  different  funding 
accounts.  SRdb  records  the  following  information  for  each 
account: 

•  Account  name, 

•  Account  number  assigned  by  NPS  Comptroller, 

•  Mail  code  of  responsible  individual, 

•  Type  of  funds  ( RF  or  not), 

•  Document  serial  number  range  assigned, 

•  Last  document  serial  number  used. 

Professors  who  are  responsible  for  multiple  RF 
accounts  have  a  separate  listing  for  each  account.  A  menu- 
driven  option  permits  the  user  to  easily  add  additional 
accounts  upon  receipt  of  accounting  data  from  the  NPS 
Comptroller. 


Tracking  document  serial  numbers  for  each  account 
permits  the  automatic  generation  of  the  14-character 
document  numbers  (columns  30-43  of  DD-1348),  which  are  a 
concatenation  of  the  Unit  Identification  Code  (UIC),  Julian 
date,  and  the  appropriate  serial  number.  In  SRdb,  the  entire 
process  is  now  transparent  to  the  user  instead  of  a  being  a 
drill  in  precision  typing. 

3.  Supplier  Database 

A  database  file  of  suppliers  is  maintained  on-line 
to  assist  the  user  in  completion  of  open  purchase  requisi¬ 
tions.  The  vendor's  name,  address,  and  phone  number  are 
filed  for  easy  future  reference.  SRdb  allows  the  clerk  to 
select  the  appropriate  supplier  from  an  on-line  listing, 
eliminating  the  repetitive  entry  of  vendor  information.  If 
an  order  is  made  from  a  supplier  not  currently  in  the  file, 
he  is  automatically  added  to  the  database  for  future  refer¬ 
ence.  The  supplier  database  also  serves  as  an  excellent 
source  of  alternative  vendors,  required  in  orders  exceeding 
$1,000  value. 

4.  Requisition  Database 

A  file  is  maintained  containing  the  following  items 
of  information  about  each  requisition: 

•  Requisition  number, 

•  Priority  code  of  requisition, 

•  Supplier, 

•  Date  of  requisition. 

The  requisition  database  is  indexed  by  requisition 
number  and  account  number  for  ease  of  report  generation. 
Each  requisition  is  represented  by  a  separate  entry  in  this 
file. 

5.  I  tern  Database 

In  consonance  with  a  database  of  Third  Normal  Form, 
as  described  by  Kent  [Ref.  7),  a  separate  database  contains 


the  items  requisitioned.  The  database  contains  the  following 
entries  for  each  item: 

•  Description  of  item  (up  to  44  characters), 

•  Unit  of  issue, 

•  Quantity  ordered, 

•  Unit  price, 

•  Requisition  number, 

•  Purchase  order  number, 

•  Receipt  status. 

The  item  database  is  indexed  by  both  the  requisition 
number  and  the  purchase  order  number  to  facilitate  item 
tracking  and  report  production.  This  database  also  permits 
the  tracking  of  which  items  have  not  been  received.  The 
original  unit  price  may  later  be  altered  to  accommodate 
price  changes,  which  are  a  common  occurrence. 

6.  Report  Generation 

A  primary  strength  of  SRdb  is  the  ability  to  easily 
generate  reports  from  the  various  databases.  The  user  is 
given  the  option  of  displaying  each  report  on  the  screen  or 
dumping  it  to  a  printer.  Although  there  is  a  virtually 
unlimited  number  reports  and  formats  which  could  be 
produced,  the  beta  version  of  SRdb  provides  the  following 
two  basic  types  of  reports. 

a.  Requisition  Summary 

The  user  may  select  from  these  three  requisition 
display  options: 

1)  A  single  specific  requisition. 

2)  All  requisitions  charged  to  a  specific  account. 

3)  All  requisitions  charged  to  a  specific  account  between 
two  dates. 

As  may  be  seen  in  Figure  3. 1,  only  essential 
data  elements  are  presented  in  requisition  summaries.  There 
is  no  attempt  to  display  an  exact  copy  of  the  original 
requisition. 


Account  Name:  LAPATRA  Requisition  #:  53337003 

Account  #:  RCAZ2  Priority:  C 

To:  ASHTON- TATE 

10150  W.  Jefferson 
Culver  City,  CA  90230 


it 

Item 

Unit  Cost 

Quant 

Rcvd  P .  0 .  it 

1 

dBASE  III 

$  399.00 

2 

F 

2 

Quick  Code  Mark  IV 

$  345.00 

1 

F  87654321 

Total  items:  3 

Total  value: 

? 

1,143.00 

Figure  3.  1  Single  Requisition  Summary 


b.  Summary  of  Items  Not  Received 

SRdb  currently  permits  two  types  of  displays  of 
items  ordered  but  not  yet  received.  The  user  may  elect  to 
display  all  items  outstanding  for  the  entire  department 
(Figure  3.2)  or  to  restrict  the  list  to  items  outstanding 
from  a  specific  account  (Figure  3.3).  Both  types  of  listings 
will  show  at  the  bottom  the  total  number  and  value  of  items 
not  yet  received. 

AS  Dept 

ITEMS  NOT  RECEIVED  AS  OF  12/11/85 


it 

Item 

Req  it 

P.0.  # 

Quant 

1 

LOTUS  123  34LP456543Z3 

53156504 

1 

2 

Pedometer  (model  158) 

53227676 

2 

3 

Nikon  35mm  SLR  Camera  £1.4 

53227676 

53403454 

1 

4 

Calculator  34543LP09867 

53306005 

1 

5 

DisplayComm  Software 

53336505 

54129990 

1 

6 

IBM  VM- 370  Oper.  Handbook 

53336505 

1 

7 

dBASE  III 

53337003 

2 

8 

Quick  Cede  Mark  IV 

53337003 

1 

9 

Amdek  Color  Monitor  13' 

53337678 

2 

10 

9  Meg  Buffer  Board 

53365707 

2 

11 

Calender  86  78756GG32234 

53367005 

3 

12 

Desk  Pad  66543FU45435 

53367702 

1 

13 

Symphony  Clone  Ver3  //3 

53385708 

3 

14 

Sidekick  Software 

53387680 

100 

15 

IBM  AT  Personal  Comp. 

53387703 

1 

16 

Y-19  Communications  Accessory  Pack 

53415709 

1 

Total  items:  182  Total  value:  $  64,656.62 

Figure  3.2  Department  Listing  of  Items  Not  Received 

The  potential  exists  to  restrict  the  listings  to 
requisitions  generated  within  a  specific  range  of  dates. 
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For  Account  #:  RCAZ2 
ITEMS  NOT  RECEIVED  AS  OF  01/23/86 


# 

Item 

P.0.  # 

Quant 

1 

dBASE  III 

53337003 

2 

2 

Quick  Code  Mark  IV 

53337003 

1 

3 

Calender  86  78756GG32234 

53367005 

3 

Total  items:  6 

Total  value:  $ 

1,151.61 

Figure  3. 3  Account  Listing  of  Items  Not  Received 

7.  Alternative  Sources  Memorandum 

As  described  in  Chapter  Two,  a  memorandum  listing 
three  alternative  suppliers  must  accompany  all  open  purchase 
requisitions  exceeding  $1,000  in  value.  SRdb  permits  the 
user  to  page  through  the  on-line  list  of  available 
suppliers,  selecting  the  desired  ones.  The  user  is  then 
prompted  for  two  departmental  points  of  contact  for  the 
requisition.  The  resulting  memorandum  (Figure  3.4)  is 
produced  without  further  user  input. 


From:  AS  Department  01/24/86 

To:  NPS  Supply 

Subj :  Additional  sources  for  requisition  #  60243397 

1.  Due  to  the  high  value  of  subject  requisition,  the  following 
multiple  supply  sources  are  submitted: 


Monterey  Bay  Computerworks  Phone:  408  889-3177 

1760  Fremont  Blvd 

Seaside  CA  93955 


IBM  Government  Products  Phone:  518  864-2169 
321  Cypress  Lane 

Qakmont  NM  43563 


Trafalgar  Systems  Phone:  808  549-2843 

606  Alamo ana  Blvd 

Honolulu,  HI  96867 


2.  Departmental  points  of  contact  for  this  request  are: 

Greta  Jones  2472 

Bette  Midler  3242 


Figure  3.  4  Alternative  Sources  Memorandum 
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This  chapter  will  present  a  brief  overview  of  the 
lessons  learned  from  the  limited  trial  operations  of  the 
beta  copy  of  SRdb  in  the  NPS  Administrative  Sciences 
Department.  No  pretention  is  made  that  these  findings 
constitute  a  formal  cost/benefit  analysis  of  the  concept, 
however,  it  is  believed  that  they  may  serve  a  springboard 
for  further  research  in  the  area.  Feedback  was  obtained  by 
direct  observation  of  the  requisition  clerk  users  and  post¬ 
use  interviews. 

A.  GENERAL 

The  first  trial  of  SRdb  in  the  AS  Department  was 
conducted  using  a  newly  hired  clerk  who  was  unfamiliar  with 
both  the  requisition  process  and  personal  computers.  Her 
experience  highlighted  several  procedural  weaknesses  in  the 
software  which  were  immediately  corrected  prior  to  further 
use. 

Users  with  all  levels  of  experience  in  the  requisition 
arena  appeared  generally  favorable  toward  the  SRdb  concept. 
The  best  reception  was  from  those  with  0  to  5  years  of 
requisition  experience.  Although  the  user's  enthusiasm  for 
the  SRdb  concept  appeared  genuine,  it  is  recognized  that 
their  knowledge  of  the  presence  of  the  software's  author  may 
have  somewhat  colored  their  reactions.  All  said  that  it  was 
superior  to  the  current  system  of  learning,  which  consists 
primarily  of  literally  copying  previous  requisitions, 
substituting  the  name,  number,  and  price  of  the  new  item  to 
be  ordered. 

B.  REQUISITION  CODES 

The  primary  problem  with  the  verbatim  copying  of 
previous  requisition  stubs  is  the  inadvertent  transcription 


of  inappropriate  codes.  Users  have  always  found  it  easier  to 
copy  a  sample,  rather  than  research  and  understand  the 
actual  meanings  of  the  codes.  For  example,  after  the 
issuance  of  the  current  NPS  Customer  Service  Manual,  the 
Supply  Department  noticed  that  the  expense  code  'T  2D'  was 
being  placed  in  block  'O'  of  virtually  all  DD-1348's.  The 
cause  was  traced  to  the  fact  that  all  sample  DD-1348's  shown 
in  the  new  manual  used  the  'T  2D'  code  as  an  example 
[Ref.  1:  pp.  4-10  -  4-14].  Most  requisition  clerks  were 
found  to  be  blindly  copying  it,  not  really  understanding 
why,  but  thinking  that  it  should  work  [Ref.  8]. 

A  valid  argument  may  be  made  that  it  is  unnecessary  for 
clerks  to  understand  the  meaning  of  every  single  code  on 
requisition  documents.  Indeed,  six  of  the  22  codes  found  on 
a  DD-1348  will  never  change  for  an  NPS  customer,  therefore, 
it  is  acceptable  for  clerks  to  routinely  copy  those  items. 
However,  when  a  code  is  variable,  under  the  current  system 
the  clerk  should  understand  its  significance. 

Due  to  the  internalization  of  code  algorithms  within  the 
SRdb  software,  it  was  most  favorably  received  by  inexperi¬ 
enced  personnel  who  had  not  yet  learned  the  details  of  the 
requisition  coding  process.  SRdb  generates  the  appropriate 
codes  based  upon  user  response  to  plain  language  queries, 
thereby  relieving  the  user  from  memory  work  or  copying 
exercises. 

C.  DOCUMENT  PRINTING 

The  actual  printing  of  requisition  documents  by  SRdb  was 
initially  viewed  by  all  users  with  concern.  Due  to  its  small 
size,  the  DD-1348  requires  precise  character  placement,  and 
no  one  was  comfortable  with  alignment  of  the  forms  in  the 
printer.  It  is  a  process  which  one  learns  through  trial  and 
error.  Since  SRdb  permits  an  unlimited  number  of  immediate 
reprinting  attempts,  the  skill  is  rather  easily  acquired.  No 
one  required  more  than  four  trials  to  print  his  or  her  first 
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requisition.  A  rapid  learning  curve  for  subsequent  uses  was 
discovered  for  nearly  all  users. 

D.  DATABASE  USAGE 

The  notion  of  reliance  upon  an  electronic  database 
rather  than  the  current  '3-ring  binder'  system  produced 
surprisingly  mixed  reviews.  It  was  generally  felt  that 
unless  the  SRdb  system  was  already  running  at  the  time  a 
single  requisition  needed  to  be  reviewed,  it  might  be  easier 
and  faster  to  locate  it  in  the  current  binder  system.  All 
agreed  that  SRdb  was  superior  in  the  generation  of  summary 
reports  of  items  not  yet  received,  however,  this  was  not 
viewed  as  a  feature  which  would  be  in  frequent  demand  in  the 
AS  Department.  Everyone  liked  the  concept  of  maintaining 
on-line  files  of  suppliers  and  account  data  to  avoid  typing 
of  redundant  information  on  multiple  requisitions. 

SRdb  was  judged  by  some  users  to  be  weak  in  that  the 
beta  version  requires  all  requisitions  for  a  particular 
account  to  be  generated  via  SRdb.  In  other  words,  it  is 
difficult  to  'juggle'  the  document  serial  numbers  if  a 
particular  requisition  is  manually  produced  on  a  typewriter. 
This  weakness  could  be  overcome  in  two  ways.  An  additional 
module  could  be  created  allowing  the  user  to  change  the 
serial  number  of  the  next  document,  however,  this  has 
serious  implications  in  terms  of  the  ultimate  integrity  of 
the  database.  Alternatively,  a  department  policy  could  be 
adopted  requiring  all  requisitions  to  be  generated  by  SRdb, 
thereby  eliminating  the  possibility  of  conflicting  manually 
generated  document  serial  numbers. 


A.  BENEFITS 


In  the  case  of  SRdb,  the  following  potential  benefits 
may  be  derived  from  the  issuance  of  interactive  software 
instead  of  written  instructions  and  manuals: 

1.  Requisitions  may  be  generated  more  quickly  and  easily, 
requiring  less  effort  and  perhaps  permitting  a  reduc¬ 
tion  in  user  labor  expense. 

2.  The  time  required  to  train  users  to  produce  requisi¬ 
tion  documents  may  be  significantly  reduced. 

3.  SRdb  permits  the  automatic  generation  of  various 
department  level  requisition  summary  reports  which  may 
be  of  value  to  management,  however  are  not  now 
produced  due  to  their  labor  intensity  in  a  manual 
system. 

4.  A  consistently  higher  quality  of  requisition  document 
may  assist  the  NPS  Supply  Department  in  providing 
better  response  to  customers.  Many  common  requisition 
coding  and  procedural  errors  would  be  eliminated, 
thereby,  reducing  the  number  of  documents  returned  to 
users  for  correction. 

5.  SRdb's  automatic  generation  of  requisitions  through  a 
series  of  progressive  screens  may  eliminate  many  of 
the  user's  telephone  queries  concerning  procedural 
matters  to  the  NPS  Supply  Department  personnel,  saving 
time  for  both. 

Since  only  the  last  two  of  the  five  potential  benefits 
would  be  enjoyed  by  the  NPS  Supply  Department,  it  is  legiti¬ 
mate  to  question  whether  it  would  be  sufficiently  in  their 
interest  to  sponsor  the  implementation  of  an  SRdb  project. 
Although  a  majority  of  the  benefits  will  be  realized  by 
other  NPS  departments,  the  bulk  on  the  development  and  main¬ 
tenance  expenses  probably  would  fall  upon  the  Supply 
Department.  This  would  call  for  a  change  in  the  typical 
institutional  inertia,  deeply  entrenched  in  division  of 
labor  and  turf  considerations,  which  notes  that  'we  will 
tell  them  how  to  write  a  requisition,  and  we  will  process 
their  finished  document,  but  we  are  not  going  to  write  it 
for  them. '  In  other  words,  despite  the  net  potential  benefit 
to  the  command  as  a  whole.  it  would  be  natural  for  the 


Supply  Department  to  continue  to  publish  written  instruc¬ 
tions,  and  let  the  customers  in  the  other  departments  worry 
about  reading,  understanding,  and  executing  them.  Facing 
such  natural  barriers,  if  the  Supply  Department  does  not 
view  benefits  4  and  5  as  sufficient  to  warrant  the  expense 
from  their  viewpoint,  it  is  probable  that  the  concept  repre¬ 
sented  by  SRdb  will  require  sponsorship  from  someone  at  a 
sufficiently  high  echelon  within  the  command  to  be  concerned 
with  the  overall  common  benefit. 

B.  COSTS 

The  current  beta  copy  of  SRdb  required  450  hours  of 
programming  efforts  by  a  relatively  novice  programmer.  After 
software  development,  the  maintenance  phase  continues  to 
represent  a  substantial  investment,  frequently  exceeding  50% 
of  the  total  cost  over  the  program's  life-cycle  [Ref.  9]. 
As  requisition  procedures  are  modified  in  the  future,  new 
versions  of  SRdb  will  require  code  alterations.  SRdb  may 
offer  an  advantage  in  that  many  modifications  could  remain 
transparent  to  the  user,  however,  the  costs  of  program 
changes  must  still  be  paid,  probably  by  the  originator.  The 
concept  would  be  for  new  versions  of  floppy  diskettes  to  be 
issued  in  lieu  of  the  promulgation  of  change  notices  to 
written  instructions. 

The  disparity  between  media  costs  (diskette  versus  paper 
and  ink)  may  not  be  as  great  as  one  might  imagine.  Now  that 
diskettes  may  be  procured  in  bulk  for  less  than  $1. 00  per 
copy,  the  media  costs  are  comparable  and  are  considered  to 
be  a  primary  consideration. 

Viewed  from  a  system  perspective,  SRdb  requires  the  use 
of  substantial  assets  beyond  the  cost  of  the  SRdb  software. 
Command-wide  implementation  of  SRdb  would  of  necessity  force 
a  review  of  the  availability  and  utilization  levels  of 
personal  computers  throughout  the  command.  NPS  is  somewhat 
unique  in  that  the  proliferation  of  personal  computers  has 


already  enabled  access  to  them  in  every  department,  however, 
it  would  certainly  be  a  major  consideration  in  a  more 
diverse  environment. 

C.  SRdb  SCOPE 

It  should  be  recognized  that  SRdb  extends  well  beyond 
the  bounds  required  to  provide  a  software  implementation  of 
the  requisition  process  as  currently  described  in  the  appro¬ 
priate  written  references  [Refs.  1,2,6].  The  incorporation 
of  a  database  capability  in  terms  of  a  formal  record  keeping 
structure  exceeds  actions  currently  directed.  The  database 
features  were  included  as  a  result  of  a  survey  of  the  record 
procedures  of  various  departments. 

One  may  question  the  wisdom  of  stipulating  the  form  of 
department  records  when  there  has  been  no  guidance  previ¬ 
ously  given  in  this  area.  While  no  advantage  has  been 
conclusively  proven  supporting  a  requisition  record  system 
that  is  uniform  command-wide,  there  is  an  appealing  logic  to 
having  one  group  create  a  system  which  is  automatically 
updated  at  the  time  of  requisition  generation  with  no  addi¬ 
tional  effort  by  the  user.  This  is  as  opposed  to  the  laisse 
faire  process  of  each  department  reinventing  the  ' record 
wheel'  separately.  Certainly  a  department  could  use  SRdb  for 
requisition  preparation,  choosing  to  ignore  the 
SRdb-produced  records,  and  maintaining  its  manual  binder 
file  system  instead.  In  all  likelihood,  if  a  descendent  of 
SRdb  is  ever  formally  implemented,  the  manual  records  will 
continue  to  be  kept  in  parallel  with  SRdb  until  user  confi¬ 
dence  is  fully  gained. 


VI.  SUMMARY  AND 


SRdb  is  presented  as  an  example  of  interactive  computer 
software  as  an  alternative  to  written  instructions.  The 
concept,  as  embodied  in  the  SRdb  prototype,  has  been  infor¬ 
mally  tested  and  successfully  demonstrated  to  work  in  a 
closely  controlled  environment.  Despite  the  appearance  of 
high  potential  and  the  numerous  common  sense  arguments  which 
may  be  advanced  in  favor  of  software  over  written  instruc¬ 
tions,  it  is  inappropriate  to  conclusively  state  that  SRdb 
offers  proof  of  cost  efficiency  or  effectiveness  of  the 
concept.  SRdb  is  offered  as  a  tool  for  further  research  and 
analysis  in  this  arena. 

A.  FUTURE  ADAPTATIONS  OF  SRdb 

SRdb  may  be  viewed  as  an  attempt  to  improve  the  human 
interface  with  the  NPS  supply  requisition  process  without 
modifying  the  basic  system.  Although  document  generation  is 
now  automated  by  SRdb,  the  physical  transmission  of  requisi¬ 
tion  data  on  paper  stubs  remains  far  less  efficient  and 
somewhat  archaic  when  compared  to  other  procedures  which  are 
readily  available  today.  For  example,  an  SRdb-like  interface 
could  easily  electronically  send  the  requisition  to  a  host 
computer  in  the  Supply  Department,  rather  than  produce  paper 
stock  which  is  manually  routed.  Supply  procurement  personnel 
could  receive,  review,  and  process  requisitions  on  their 
terminals,  eliminating  enormous  amounts  of  duplication  in 
typing  efforts.  A  'read  only'  requisition  supply  status 
database  could  also  be  maintained  on  the  NPS  mainframe, 
accessible  by  modem  or  3278  terminal  from  every  department, 
eliminating  substantial  hours  in  answering  routine  status 
check  phone  calls. 


Although  current  supply  automation  experts  believe  that 
the  Navy  is  not  yet  ready  for  completely  'signatureless' 
electronic  requisitions  from  the  customer  level,  as  a 
compromise,  the  system  could  permit  automatic  electronic 
transmission  and  processing  of  all  requisition  data  elements 
to  be  followed  by  a  simple  signed  memorandum  citing  each 
requisition  [Refs.  10,11]. 

Organizations  are  just  beginning  to  scratch  the  surface 
in  realizing  the  potential  of  personal  computers  when  teamed 
with  the  appropriate  software.  SRdb  is  a  minor  contribution 
to  this  abrasion  process. 
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The  Supply  Requisition  Database  CSRdb)  program  is 
designed  to  be  easily  used  by  a  person  with  very  little 
knowledge  of  the  NPS  Supply  system.  The  menu-driven  SRdb 
approach  is  best  learned  through  experience.  The  purpose  of 
this  User’s  Manual  is  to  serve  as  a  reference  guide  if  more 
details  about  a  particular  process  are  required. 

Assuming  that  your  copy  of  SRdb  has  been  configured  for 
your  department,  there  is  no  need  to  read  further.  Simply 
follow  your  department's  instruction  for  disk  placement  and 
start  up  SRdb.  It  is  recommended  that  new  users  use  a  test 
database  diskette  for  the  first  session,  so  that  practice 
requisitions  and  reports  may  be  generated  with  no  penalties 


WELCOME  TO  THE  NPS  SUPPLY  REQUISITION  DATABASE 


This  program  is  designed  to  originate  requisition 
documents  (DD-1348s  and  SF-36s)»  as  well  as  maintain 
a  database  of  requisition  status  for  a  particular 
department.  The  system  is  designed  for  use  by  any 
personnel  who  are  familiar  with  Naval  Supply 
terminology,  however,  a  detailed  understanding 
of  the  decision  matrix  used  in  the  generation  of 
requisition  documents  is  unnecessary. 


WARNING  -  If  the  user  fails  to  adhere  to  any  warnings 
presented  by  the  program,  he  does  so  at 
the  risk  of  data  loss. 

Disks  should  NEVER  be  removed  from  the 
drives  until  the  program  has  been  exited. 


Screen  2.1  Welcome 


The  SRdb  program  is  presented  through  a  series  of  menus 
which  are  felt  to  be  self-explanatory.  This  user's  guide 
will  present  copies  of  actual  screen  displays.  For  example. 
Screen  2.1  is  the  first  seen  when  the  SRdb  program  is 
started.  The  space  provided  for  user  inputs  would  be  seen 
as  a  cursor  on  the  screen.  In  example  screens  in  this 

manual,  the  cursor  will  be  represented  by  an  underline  _ . 

If  the  screen  is  demonstrating  an  example  of  the  choice  made 
by  a  user,  it  will  show  the  selection  made  as  an  underline, 
e.g.  Y  would  represent  a  user's  input  of  'Y'. 

If  this  is  the  first  time  the  program  is  being  run  in 
your  department,  it  should  be  configured  by  someone  familiar 
with  dBASE  III  and  the  Program  Maintenance  Manual. 

1.  Turn  on  the  computer  &  boot  up  DOS.  If  you  don't  know 
how  to  do  this,  get  someone  to  do  it  for  you,  or  read 
your  computer  instruction  manual. 

2.  Assuming  the  program  is  configured  for  use  in  your 
department,  load  the  program  in  accordance  with  the 
department's  instructions.  If  none  exist,  then  the 
program  disk  should  be  placed  in  the  'A'  drive  and  the 
database  disk  placed  in  the  'B'  drive. 

3.  Type  'ORDER'. 

4.  Follow  instructions  to  'Press  a  key  to  continue'  until 
you  see  the  Screen  2.2 
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„  *.  ,2_A  S-T: 


Screen  2.2  Load  Disk  Drives 


Ensure  that  the  disk  drives  are  properly  loaded  before 
proceeding!  If  you  have  loaded  the  disks  in  locations  other 
than  the  locations  now  on  the  screen,  this  is  the  time  to 
change  them. 


v  /V  w"  v  v  v  v;,-; 


I 


QNF IGURATION 


CONFIGURATION 


This  program  has  been  preconfigured  for  your  use 
and  should  not  require  reconfiguration  unless 
transported  to  another  system  or  department. 

WARNING  -  Configuration  changes  should  only  be 

made  by  personnel  familiar  with  dBASE  III. 


Change  Configuration  CY/N)? 


This  program  is  configured  as  follows 
Department:  AS 

Bldg:  330 


Room:  230 

Telephone:  X2472 

Database  disk  locations: 

Suppliers:  'B*  drive 

Accounts:  'B'  drive 

Color  Monitor  (T/F):  T 

Is  this  the  correct  configuration  (Y/N)T  _ 


Screen  3.2  Configuration  Modification 


Responding  to  Screen  3.2  with  a  'Y'  will 
displayed  configuration  to  be  saved  to  the  program 


cause 

disk 


IV 


IILU: 


:4aF:1B«iKI 


Since  the  computer's  system  date  may  not  have  been 
correctly  set,  the  opportunity  is  now  presented  to  enter  the 
desired  date.  This  date  will  be  used  in  dating  all  requisi¬ 
tion  documents  and  reports »  therefore,  it  is  important  to 
ensure  that  it  is  correct. 


CONFIRM  TODAY'S  DATE 
12/11/85 
(Y/N)?  _ 


Screen  4.1  Confirm  date 


If  the  date  shown  in  Screen  4.1  is  correct)  enter  'Y'. 
If  you  enter  'N',  Screen  4.2  will  allow  you  to  change  the 
date  as  you  desire. 


Note  - 


ENTER  TODAY'S  DATE 

_ / _ /_ 

MM/DD/YR 


Leading  zeros  are  required 
for  single  digit  values. 


SUPPLY  REQUISITION  DATABASE 


0 
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3 
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Exit 

Place  an  order 

Update  files  with  purchase  order  # 

Mark  items  received 

List  items  not  yet  received 

Display  a  specific  requisition 

Change  an  item  price 

Enter  a  new  supplier 

Create  a  new  account 

==Your  choice  >_<================= 


Screen  5.1  Main  Menu 


Screen  5.1  is  a  display  of  the  SRdb  Main  Menu.  The 
following  is  a  description  of  the  various  menu  options. 

0)  Quit  and  exit  the  program. 

1)  Place  an  order.  Generates  the  appropriate  requisition 
documents  and  places  the  order  in  the  database. 

2)  Permits  the  entry  of  a  purchase  order  number  for  each 
item  when  the  purchase  order  information  is  received 
from  supply. 

3)  Permits  the  marking  of  items  which  have  been  received. 

4)  Generates  a  listing  of  items  which  have  not  been 
received  . 

5)  Displays  a  specific  single  requisition  or  a  series  of 
requisitions  based  upon  a  particular  requisition 
number  or  account  number.  The  requisitions  displayed 
may  be  made  subject  to  a  range  of  dates  of  origin. 

6)  Permits  the  price  of  an  item  to  be  changed  in  the 
database.  It  does  not  regenerate  requisition  docu¬ 
ments  as  this  is  generally  unnecessary. 

7)  Allows  a  new  supplier  to  be  entered  into  the  database. 

8)  Permits  the  creation  of  a  new  account  when  the  appro¬ 
priate  information  is  received  from  the  NPS 
Comptroller  . 


There  are  several  procedures  which  are  used  many  times 
throughout  the  SRdb  program.  This  chapter  will  discuss  all 
procedures  which  are  common  to  two  or  more  major  routines. 
For  example  f  the  procedures  to  select  an  account  are  the 
same  for  all  six  different  types  of  requisitions,  therefore, 
account  selection  is  a  procedure  which  will  be  discussed 
here . 


A.  ACCOUNT  SELECTION 


SELECT  AN  ACCOUNT 

— 

1.  By  Account  Name 

- 

2.  By  Account  Number 

- 

3.  Enter  New  Account 

. - 

4.  Return  to  Main  Menu  - 

Your  choice:  1 

Screen  6.1  Select  an  Account 


Many  routines  require  the  user  to  select  a  particular 
account  for  further  activity.  The  desired  account  may  be 
specified  by  either  account  name  or  account  number.  If  the 
account  is  new,  the  option  is  given  to  create  a  new  account. 
Since  creation  of  a  new  account  is  also  an  option  on  the 
main  menu,  it  will  be  discussed  later.  For  purposes  of  the 
example  at  hand,  it  is  assumed  that  the  desired  account  is 
already  on  file,  and  the  user  chooses  to  specify  it  by  name, 
yielding  Screen  6.2 


SRdb  displays  data  on  the  'LYONS'  account  in  response  to 
Screen  6.2.  For  user  convenience,  the  name  input  is  not 
sensitive  to  upper  or  lowercase.  If  no  account  having  the 
desired  name  can  be  located  in  the  database,  the  user  is  so 
informed  and  instructed  to  try  again.  The  dBASE  III  search 
procedure  allows  for  input  of  partial  names,  such  as  'LY' 
instead  of  'LYONS'. 


Once  the  account  is  found,  the  user  has  several  options 
as  shown  at  the  bottom  of  Screen  6.3.  For  purposes  of  this 
example,  we  have  chosen  to  page  back  to  the  previous  account 
in  the  database  (files  are  alphabetically  arranged  by 
account  name).  This  brings  up  the  'LAPATRA'  account  as  seen 
in  Screen  6.4. 


Account  Name:  LYONS 
(Blank  aborts  process) 


Screen  6.2  Selecting  by  Account  Name 


Account  Name:  LYONS 
Account  Number:  R1235 
Code:  54LY 

Research  Account  (T/F):  T 

Requisition  Serial  #  Range  -  From:  6500 

To:  6505 

Select  an  action:  2 


1.  Use  this  account 

2.  Scroll  to  previous  account  - 

3.  Scroll  to  next  account 

4.  Return  to  last  menu 

5.  Return  to  main  menu 


Screen  6.3  Scrolling  to  the  Previous  Account 


The  LAPATRA  account  displayed  in  Screen  6.4  is  selected 
for  use  by  choosing  option  *1'  as  shown. 


Account  Name 


LAPATRA 


Account  Number:  RCAZ2 


Code 


54LP 


Research  Account  (T/F):  T 
Requisition  Serial  *  Range  - 


From : 
To  : 


7001 

7005 


Select  an  action:  1 

1.  Use  this  account 

2.  Scroll  to  previous  account  - 

3.  Scroll  to  next  account 

4.  Return  to  last  menu 

5.  Return  to  main  menu 


Screen  6. A  Selecting  an  Account  for  Use 


SUPPLIER  SELECTION 


1 . 

SELECT  A  SUPPLIER 

By  Supplier  Name 

- 

2  . 

By  Supplier  Number 

- 

3  . 

Enter  New  Supplier 

4  . 

Return  to  Main  Menu  - 

Your  choice:  1 

Screen  6.5  Select  a  Supplier 


Many  routines  require  the  user  to  select  a  particular 
supplier  for  further  activity.  The  desired  account  may  be 
specified  by  either  the  supplier's  name  or  the  supplier 
number.  If  the  supplier  has  never  been  used  before »  the 
option  is  given  to  place  the  'new'  supplier  in  the  database. 
Since  entering  a  new  supplier  is  also  an  option  on  the  main 
menu,  it  will  be  discussed  later.  For  purposes  of  the 
example  at  hand,  it  is  assumed  that  the  desired  supplier  is 
already  on  file,  and  the  user  chooses  to  specify  it  by  name, 
as  in  Screen  6.5.  Since  this  process  is  nearly  identical 
procedurally  to  selecting  an  account,  a  briefer  example  will 
be  shown.  The  following  screens  will  demonstrate  the  selec¬ 
tion  by  'name'  of  'IBM'  as  the  desired  vendor. 


Supplier  Name:  IBM 
(Blank  aborts  process) 


Screen  6.6  Looking  for  IBM 


SELECTED  SUPPLIER 


IBM  GOVT  PRODUCTS 

321  CYPRESS  LANE 

OAKMQNT  NM  43563 

(505)  864-2169  Supplier  #:  2170 


Select  an  action:  _1 


1.  Use  this  supplier 

2.  Scroll  to  previous  supplier  - 

3.  Scroll  to  next  supplier 

4.  Return  to  last  menu 

5.  Return  to  main  menu 


Screen  6.7  Selecting  IBM 


The  IBM  supplier  displayed  in  Screen  6.7  is  selected  for 
use  by  chosing  option  '1*  as  shown.  The  supplier  number 
shown  is  simply  a  number  used  by  the  database  to  keep  track 
of  the  suppliers. 


C.  REQUIRED  DELIVERY  DATE 


Every  type  of  order,  except  $$  Reimbursement  to  the  RSS 
and  transportation  of  material,  presents  the  user  with  the 
opportunity  to  specify  a  Required  Delivery  Date  (RDD).  As 
shown  in  Screen  6.8,  specification  of  the  RDD  is  optional. 
While  there  are  certainly  no  guarantees,  an  RDD  will  assist 
the  Supply  Department  personnel  in  serving  your  needs. 


REQUIRED  DELIVERY  DATE  (RDD) 

This  is  an  optional  3  digit  Julian  date  when  the 
material  or  service  is  required.  It  is  used  to 
assist  in  the  placement  of  the  order. 

Desire  to  specify  an  RDD  (Y/N)?  Y 


Enter  RDD: 
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ORDER  PRIORITY 


Three  different  order  priorities  are  offered  users 
shown  in  Screen  6.9,  and  a  brief  explanation  of 
priority  is  presented. 


ORDER  PRIORITY 

-  Requirement  is  immediate  and  without  the  material 
required  >  the  activity  is  unable  to  perform  one 
or  more  of  its  primary  missions. 

(Note:  Requires  NPS  Superintendent  approval) 

-  Requirement  is  immediate  or  it  is  known  that  such 
a  requirement  will  occur  in  the  immediate  future. 

-  Routine  requirement. 


Select  appropriate  order  priority: 


Screen  6.9  Order  Priority 

Most  NPS  requisitions  are  properly  classified  as 
priority  'C'.  Occasionally  sufficient  justification  is 
present  to  rate  a  requisition  priority  'B'.  Note  that  if 
priority  'A'  is  selected*  Screen  6.10  will  be  displayed.  If 
the  user  chooses  priority  *A'  and  indicates  that  approval  of 
the  NPS  Superintendent  has  not  been  obtained*  the  opportu¬ 
nity  will  be  given  to  reselect  a  priority.  For  more  infor¬ 
mation,  phone  the  Issue/Receipt  Control  Branch  at  ext.  2012. 


NOTICE 


A  priority  code  of  'A'  requires 
NPS  Superintendent  approval. 


Have  you  obtained  approval  (Y/N)?  _ 


Screen  6.10 


Warning 


EPARE  PRINT 
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PREPARE  PRINTER 


Since  output  will  now  be  sent  to  the 
printer,  it  should  be  connected  and 
have  the  power  turned  on  now. 

WARNING  -  Failure  to  prepare  the  printer  may  cause 
the  computer  to  hang  and  possibly  result 
in  loss  of  data . 


Continue  (Y/N)?  _ 


Screen  6.11 
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No  paper  error  writing  device  PRN 
Abort,  Retry,  Ignore?  _ 
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LOAD  SF-36  INTO  PRINTER 

& 

PRESS  ANY  KEY  TO 

CONTINUE 

Screen  6.13  Load 

SF-36 

LOAD  DD- 1348  INTO 

PRINTER 

& 

PRESS  ANY  KEY  TO 

CONTINUE 

TO  PLACE  AN  ORDER 


The  purpose  of  this  program  is  to  generate  the 
appropriate  supply  forms  (DD  1348-6  S/or  SF  36)  to 
place  an  order. 


Select  the  type  of  order 

1 .  Open  Purchase 

2.  Standard  stock  items  from  NPS  RSS,  NSC  Oakland* 

or  GSA 

3.  Standard  forms  from  NSC  Oakland 

4.  Publications  from  NAVPUBFORMCEN  Phil 

5.  $$  Reimbursement  to  NPS  Ready  Supply  Store 

6.  Transportation  of  material  (e.g.  Federal  Express) 

7.  Return  to  main  menu 


Your  order 


A.  OPEN  PURCHASE 

The  Open  Purchase  order  appears  as  option  '1'  on  Screen 
7.1  The  following  is  the  proper  sequence  of  events  to 
complete  an  open  order. 

1)  Select  an  account 

2)  Select  a  supplier 

3)  Option  to  specify  an  RDD 

4)  Select  requisition  priority 

5)  Enter  item  to  be  ordered 

6)  Prepare  printer 

1 .  Enter  I  tern  to  be  Ordered 

Screen  7.2  provides  the  user  the  opportunity  to 
enter  the  description  of  the  item  to  be  purchased.  It  is 
important  to  note  that  although  the  entire  description  will 
appear  on  the  requisition  documents ,  only  the  44  characters 
on  the  first  line  of  the  description  will  be  saved  in  the 
database.  It  is  important  that  the  first  line  be  suffi¬ 
ciently  descriptive  of  the  item,  for  it  is  this  description 
which  will  appear  on  later  reports  and  requisition 
summaries.  SRdb  has  limited  the  size  of  the  filed  descrip¬ 
tion  due  to  program  efficiency  and  disk  space  considera¬ 
tions.  If  the  user  leaves  the  first  line  of  the  item 

description  blank,  SRdb  assumes  that  all  desired  items  have 
been  ordered.  Up  to  12  items  may  be  ordered  on  a  single 
SF-36.  Note  that  this  is  a  limitation  of  SRdb  rather  than  an 
official  supply  limitation. 


Screen  7.3  is  an  example  of  an  order  for  two  IBM 
Personal  Computers.  If  the  user  indicates  that  there  is  an 
error  on  the  screen,  an  opportunity  will  be  provided  to  edit 
the  item  currently  displayed.  Once  the  user  indicates  that 
the  order  for  an  item  is  correct,  there  is  no  opportunity  to 
change  the  request.  The  entire  requisition  may  be  aborted 
just  prior  to  printing,  as  described  in  Chapter  5. 


Item  *:  1 

ENTER  ITEM  TO  BE  ORDERED 


Item  description: 

IBM  Personal  Computer _  <--Only  this  line  is  filed 

256K  Mem  o  r  v  _ _ _ _ _ _ 

2  disk  drives _  (Blank  ends  process.) 


Unit  of  issue :  ejt 
Unit  price:  $  1545.00 

Quantity:  2 


Is  this  order  correct  (Y/N)? 


FORMS  ORDER 


This  program  prepares  the  documents  required  to  order 
forms  from  NSC  OAKLAND.  If  you  desire  to  order  forms 
from  NA VPUBFORMCEN  Phi lade lphia ,  do  not  continue. 


Continue  ( Y/N ) T 


Screen  7.6  Forms  Order 
D.  PUBLICATION  REQUISITION 

The  requisition  of  publications  from  NAVPUBFORMCEN , 
Philadelphia ,  PA,  appears  as  option  '4'  on  Screen  7.1.  This 
option  is  used  to  place  an  order  for  publications,  which  are 
assigned  an  NSN  and  are  stocked  at  NAVPUBFORMCEN .  The 
following  is  the  proper  sequence  of  events  to  complete  a 
publication  order. 

1)  Select  an  account 

2)  Option  to  specify  an  RDD 

3)  Select  requisition  priority 

4)  Enter  item  to  be  ordered 

5)  Prepare  printer 

Since  this  procedure  is  identical  to  the  standard  stock 
requisition  process  presented  above,  it  will  not  be 
repeated.  Screen  7.7  notifies  the  user  of  the  selected 
process  and  provides  an  opportunity  to  abort. 


K 


PUBLICATION  ORDER 


This  program  prepares  the  documents  required  to  order 
publications  from  NAVPUBFORMCEN ,  Philadelphia. 


Continue  (Y/N)? _ 


Screen  7.7  Publication  Order 
E.  RSS  REIMBURSEMENT 

The  reimbursement  of  the  NPS  RSS  through  issance  of  a 
'money  value  only'  DD-1348,  appears  as  option  '5*  on  Screen 
7.1.  The  following  is  the  proper  sequence  of  events  to 
complete  a  DD-1348  for  RSS  reimbursement: 

1)  Select  an  account 

2)  Enter  the  amount  to  be  paid 

3)  Prepare  printer 


Screen  7.8  notifies  the  user  of  the  selected  process  and 
provides  an  opportunity  to  abort. 


$$  REIMBURSEMENT 

TO  RSS 

This  program  prepares  a  DD-1348  for  'money  value  only' 
as  reimbursement  to  the  NPS  RSS. 

Continue  (Y/N)?_ 

— 

Screen  7.8  RSS  Reimbursement 
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TRANSPORTATION  OF  MATERIAL  REQUISITION 


The  requisition  of  transportation  of  material  appears  as 
option  '6'  on  Screen  7.1.  This  option  is  used  to  to  pay  for 
services,  such  as  Federal  Express,  which  are  used  to  trans¬ 
port  needed  materials.  The  following  is  the  proper  sequence 
of  events  to  complete  a  transportation  of  materials  requisi¬ 
tion. 

1)  Select  an  account 

2)  Select  a  supplier  (company) 

3)  Enter  transportation  serial  number 

4)  Select  requisition  priority 

5)  Enter  to  whom  item  is  addressed 

6)  Prepare  printer 


TRANSPORTATION  OF  MATERIAL 


This  program  prepares  the  supply  documents  necessary 
to  use  commercial  carriers  (e.g.  Federal  Express  or 
UPS)  to  ship  items. 


Continue  (Y/N)? 


Screen  7.9  Transportation  of  Material 


Screen  7.9  notifies  the  user  of  the  selected  process  and 
provides  an  opportunity  to  abort.  The  only  new  procedure  in 
this  order  sequence  is  the  entering  of  the  Transportation 
Document  Serial  Number  as  displayed  in  Screens  7.10  and 
7.11.  Screen  7.10  provides  the  opportunity  to  abort  the 
process,  if  the  proper  document  serial  number  has  not  been 
obtained  . 


ENTER  TRANSPORTATION  SERIAL  NUMBER 


Transportation  requests  require  issuance  of  a  special 
serial  number  directly  from  the  comptroller.  Phone 
the  NPS  comptroller  at  x2257  to  obtain. 

Select  an  action:  1 


-  1.  Ready  to  enter  serial  number  - 

-  2.  Abort  to  main  menu 


Screen  7.10  Prepare  to  Enter  Transportation  Number 


Enter  Serial  #:  1234 


Correct  CY/N)? 


VIII.  UPDATE  FILES  WITH  PURCHASE  ORDER 


In  choosing  option  2  from  the  Main  Menu »  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  enter  purchase 
order  numbers  from  supply  for  each  item.  Screen  8.1  noti¬ 
fies  the  user  of  the  selected  process  and  provides  an  oppor¬ 
tunity  to  abort. 


INPUT  PURCHASE  ORDER  NUMBER  (PO#) 


Once  a  PO#  is  received  from  supply,  this  program 
permits  entry  of  the  PO#  for  each  item  ordered. 
Since  not  all  items  on  the  original  requisition 
may  have  been  ordered  by  supply  on  the  same 
purchase  order,  you  are  requested  to  separately 
confirm  each  item  on  the  purchase  order. 


Continue  (Y/N)? 


Screen  8.1  Input  P.0.  * 


If  the  user  chooses  to  continue,  he  will  be  asked  to 
input  the  requisition  number  and  the  purchase  order  number 
(PO  #)  of  the  item  he  is  seeking,  as  in  Screen  8.2.  Leaving 
the  requisition  number  blank  will  abort  the  process  and 
return  the  user  to  the  main  menu. 


ENTER  DATA 

Requisition  #  :  23423423 

(Blank  ends  process) 

Purchase  Order  #:  12345678 

Correct  (Y/N)? _ 


Screen  8.2  Input  Req  #  and  PO  * 
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PREPARING  TO  HARK  ITEMS  RECEIVED 


Select: 


1.  Show  by  requisition  * 

2.  Show  by  purchase  order  *  - 

3.  Return  to  main  menu 


Enter  Requisition  #:  53156504 

Note  -  Blank  ends  process 


Screen  9.2  Pick  Requisition  Number  or  PO  # 


The  following  item  shown  as  not  received 

Requisition  *:  53156504 

Purchase  Ord  #:  54443221 

Item:  dBASE  III 

Quantity:  1  Unit  Price:  $  456.75 

Has  this  item  been  received  (Y/N)?  _ 


Item  Not  Shown  as  Received 
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Screen  9.3 


Select  Search  Type 


1.  No  limits  (show  all  items  not  received) 

2.  Limit  list  to  specific  account  number 

3.  Return  to  main  menu 


Select  Display: 


1 .  Screen 

2.  Printer 


Screen  10.2  Search  Type  Selection 
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In  choosing  option  5  from  the  Main  Menu,  Screen  5.1»  the 
user  is  presented  with  the  opportunity  to  display  one  or 
more  requisitions  from  the  SRdb  database.  Screen  11.1  noti¬ 
fies  the  user  of  the  selected  process  and  provides  an  oppor¬ 
tunity  to  abort. 


DISPLAY  REQUISITION 


This  program  will  display  one  or  more  requisitions 
subject  to  user  selection  criteria.  The  list  may 
be  sent  to  the  screen  or  printer  at  the  user's 
option  . 


Continue  (Y/N)? 


Screen  11.1  Display  Requisitions 


Screen  11.2  is  the  primary  menu  for  selecting  options 
for  the  display  of  requisitions.  The  user  is  asked  to  choose 
the  type  of  requisition  search  and  the  mode  of  the  output, 
either  screen  or  printer. 


If  the  user  wants  to  print  out  only  a  single  requisi¬ 
tion,  he  will  select  option  '1'  from  Screen  11.2,  and  he 
will  then  prompted  for  entry  of  the  requisition  number. 
Option  '2'  from  Screen  11.2  will  allow  the  user  to  view  all 
requisitions  on  file  from  a  specific  account.  If  the  user 
selects  option  '4',  he  will  have  the  opportunity  to  review 
all  requisitions  from  a  single  account  generates  between  two 
dates,  as  seen  in  Screen  11.3. 
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DISPLAY  REQUISITIONS 


Selection:  _3 


0.  Return  to  main  menu 

1.  Display  single  requisition 

2.  Display  requisitions  from  specific  account 

3.  Display  requisitions  subject  to  account  *  &  date 


Select  Display: 


1 .  Screen 

2 .  Printer 


Screen  11.2  Display  Requisition  Options 


Find  Requisitions  Created 
Between 

10/01/85  and  12/11/85 
mm/dd/yy  mm/dd/yy 


Screen  11.3 


Requisition  Generation  Dates 
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.  CHANGE  AN  ITEM  PRICE 


In  choosing  option  6  from  the  Main  Menu,  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  update  the  actual 
price  of  an  item  which  has  already  been  ordered  and  is  in 
the  SRdb  database.  It  is  not  uncommon  to  receive  price 
changes  from  NPS  Supply  after  an  item  has  been  ordered. 
Screen  12.1  notifies  the  user  of  the  selected  process  and 
provides  an  opportunity  to  abort. 


CHANGE  ITEM  PRICE 


This  module  is  used  when  the  item's  final  price 
differs  from  that  on  the  original  requisition.  You 
will  be  shown  all  items  associated  with  a  specific 
requisition  #  or  purchase  order  #.  Upon  displaying 
each  item,  you  will  be  given  the  opportunity  to 
change  the  item's  unit  price  or  scroll  to  the  next 
item. 


Continue  (Y/N)?  _ 


Screen  12.1  Change  Item  Price 


Items  may  be  reviewed  by  specifying  either  the  original 
requisition  number  or  the  purchase  order  number,  if  one  has 
been  assigned.  An  example  will  be  shown  specifying  a  requi¬ 
sition  number,  as  in  Screen  12.2. 

If  the  requisition  number  entered  in  Screen  12.3  cannot 
be  found.  Screen  12.4  will  be  presented.  The  user  will  be 
presented  with  another  opportunity  to  enter  the  correct 
requisition  number. 

Screen  12.5  presents  the  item  to  the  user  and  asks  if  a 
price  change  is  desired.  If  the  user  responds  'Y',  then  the 
cursor  will  move  to  the  price  and  permit  a  change.  The  user 
will  be  asked  to  confirm  changes  before  they  are  saved  to 
the  database.  If  a  mistake  is  made,  the  process  may  be 
repeated  until  the  correct  price  is  filed. 


Preparing  to  change  an  item  price 


Select : 


1.  Show  by  requisition  * 

2.  Show  by  purchase  order  #  - 

3.  Return  to  main  menu 


Screen  12.2  Select  Item  by  Req  *  or  PO  # 


Enter  Requisition  #  :  12345678 

Note  -  Blank  ends  process 

Correct  (Y/N)? _ 


Screen  12.3  Enter  Requisition  Number 


Requisition  *  not  in  file. 

Please  double  check  the  Requisition  #  and  try  again. 
Press  any  key  to  continue... 


Screen  12.4  Requisition  Not  Found 
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Requisition  *:  53365707 

Purchase  Ord  #: 

Item:  9  Meg  Buffer  Board 

Quantity:  2  Unit  Price:  $  2875.50 

Change  unit  price  (Y/N)?  _ 


Screen  12.5  Item  Displayed  for  Price  Change 


XIII.  ENTER  A  NEW 


In  choosing  option  7  from  the  Main  Menu*  Screen  5.1*  the 
user  is  presented  with  the  opportunity  to  enter  a  new 
supplier  into  the  database.  All  required  information*  name* 
address*  and  phone  number  should  be  available  to  the  user. 
The  phone  number  is  mandatory.  It  is  used  by  SRdb  to  select 
a  supplier  number.  The  supplier  number  is  simply  a  number 
used  by  the  program  to  keep  track  of  the  suppliers.  Since 
suppliers  may  be  recalled  by  their  name*  there  is  no  need 
for  a  user  to  commit  the  supplier  numbers  to  memory  or  main¬ 
tain  an  external  list.  Screen  13.1  notifies  the  user  of  the 
selected  process  and  provides  an  opportunity  to  abort. 


INPUT  A  NEW  SUPPLIER 


In  order  to  input  a  new  supplier*  you  must  have  the 
following  information  available  at  this  times 

Supplier  Name 
Address 
Phone  # 

The  phone  number  is  mandatory.  Do  not  proceed  unless 
you  are  ready  to  enter  the  above  information. 


Continue  (Y/N)  ?  _ 


Screen  13.1  Enter  New  Supplier 


Screen  13.2  shows  an  example  of  the  blanks  the  the  user 
will  be  expected  to  complete.  Screen  13.3  is  an  example 
which  has  been  completed  by  the  user.  Note  that  SRdb  has 
assigned  the  supplier  number. 


n 


INPUT 

NEW  SUPPLIER 

Name  : 

Address  : 

City : 

State : 

Zip  : 

Phone:  (  )  - 

Note  -  Phone  #  is 

mandatory 

Screen  13.2  Input  new  Supplier 


INPUT  NEW  SUPPLIER 

Name:  New  Guv  Cables 

Address:  1021  Brandnew  Circle 

City:  Jigdoq _  State:  GA 

Phone:  (iM)  421-8895 

Assigned  Supplier  #:  8896 

Press  any  key  to  continue... 


Screen  13.3  New  Supplier  Example 


In  choosing  option  8  from  the  Main  Menu,  Screen  5.1,  the 
user  is  presented  with  the  opportunity  to  enter  a  new 
account  into  the  database.  All  required  information  should 
have  been  received  from  the  NPS  Comptroller  office  and  be 
available  to  the  user.  Screen  14.1  notifies  the  user  of  the 
selected  process  and  provides  an  opportunity  to  abort. 


CREATE  A  NEW  ACCOUNT 


In  order  to  enter  a  new  account  you  must  have 
the  following  information  available  at  this  time: 

Account  Name 

Account  #  (assigned  by  NPS  Comptroller) 
Serial  #  range  assigned  to  account 
Is  it  a  research  account? 

WARNING  -  If  you  do  not  understand  any  of  the 
above  items*  seek  assistance  and  do 
not  continue  further  at  this  time. 


Continue  (Y/N)? 


Screen  14.1  Enter  New  Account 


Screen  14.2  shows  an  example  of  the  blanks  the  the  user 
will  be  expected  to  complete.  Screen  14.3  is  an  example 
which  has  been  completed  by  the  user.  The  ability  to  enter 
the  last  serial  number  used  assists  in  transitioning  current 
accounts  to  the  SRdb  system.  If  an  account  is  brand  new,  the 
next  document  serial  number  to  be  used  is  the  first  one  in 
the  series.  If  the  account  is  being  transitioned  to  SRdb, 
simply  enter  the  last  serial  number  used,  and  the  system 
will  properly  number  future  requisition  documents. 


INPUT  NEW  ACCOUNT 


Account  Name:  _ 

Account  Number:  _ 

Code:  _ 

Research  Account  (T/F):  _ 

Requisition  Serial  #  Range  - 

Last  Serial  #  Used:  _ 

(leave  blank  if  account  never 


From 

To 

used 


yet ) 


Screen  14.2  Input  New  Account  Screen 


INPUT  NEW  ACCOUNT 


Account  Name:  Newman ,  B  N 
Account  Number:  R4321 
Code:  54NM 

Research  Account  (T/F):  T 
Requisition  Serial  #  Range  - 
Last  Serial  #  Used: 


From :  9000 
To:  9005 


(leave  blank  if  account  never  used  yet) 


Correct  (Y/N)?  _Y 


DATABASE  STRUCTURE 


The  program  uses  5  separate  database  files  (.dbf),  4  of 

which  have  2  indexes  each.  The  width  of  fields  and  indexes 
are  expressed  in  bytes.  It  should  be  noted  that  the  size  of 
indexes  are  approximations  which  were  calculated  in  accor¬ 
dance  with  the  procedures  outlined  in  the  Ashton  Tate 
Advanced  Programmer  s  Guide  [Ref.  12].  The  grand  totals 
given  for  each  account  represent  the  minimun  number  of  bytes 
required  for  each  record  in  the  database.  The  reader  is 
referred  to  the  Ashton  Tate  -  Advanced  Programmer  s  Guide 
[Ref.  12]  for  more  in  depth  sizing  algorithms. 
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28 


SUPNO_S  12 

Grand  total 


Width 

20 

20 

12 

2 

5 

10 

4 

~T5 


40 

TT5 


Field  Tyne 

REON0  6 

Width 

8 

ACCNO  c 

5 

PRI  CODE  C 

1 

SUPNO  c 

4 

RDATE  D 

9 

Total 

~T7 

Indexes 

REONo  R  16 

ACCN0_R  13 

Grand'  total 

29 

”55 

ITEM,  dbf 


Field 

ip* 

Width 

Dec 

DESCRIP 

44 

UNIT 

c 

2 

QUANT 

N 

5 

UPRICE 

N 

8 

2 

REQNO 

C 

8 

PONO 

C 

8 

RCVD 

L 

1 

Total 

“75 

Indexes 
REGNO" I 

16 

SUPNO  I 

16 

32 

Grand  total 

TUB' 

TEMPLATE. dbf 


Field 

ITEMNO 

lye 

Width 

2 

Dec 

DESCRIP 

c 

44 

DESCRIP2 

c 

44 

DESCRIP3 

c 

44 

UNIT 

N 

2 

UPRICE 

N 

8 

2 

QUANT 

N 

8 

Total 

155 

No  indexes  are  required.  This  .dbf  serves  as  a  template 
which  is  copied  to  a  TEMPORD. dbf  whenever  an  open  purchase 
order  is  to  be  made.  After  the  requisition  documents  have 
been  prepared,  TEMPORD. dbf  is  erased. 
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APPENDIX  n 
DATA  DICTIONARY 


I.  INTRODUCTION 

Memory  variables  in  dBASE  III  remain  local  to  the 
modules  in  which  they  were  created  unless  they  were  declared 
PUBLIC"  prior  to  having  a  value  initially  assigned.  This 
data  dictionary  lists  all  PUBLIC  memory  variables.  Unless 
otherwise  noted,  memory  variables  are  assumed  to  be  of  type 
character. 


II.  STATIC  DATA 

Static  data  elements  usually  do  not  change  values  during 
a  typical  normal  run.  They  are  frequently  associated  with 
control  or  reference.  All  static  data  elements  have  preas¬ 
signed  values. 


A.  File  Names 

The  following  data  elements  identify  specific  disk  files 
and  are  always  concatenated  with  a  disk  identifier  (A,B,C, 
etc.  stored  as  C_ADRV  or  C_SDRV). 

ACCNO_A  ndx  file  to  ACCNT. dbf  indexed  on  account  number. 
ACCNO_R  ndx  file  to  REQ. dbf  indexed  on  account  number. 
ACCNT  dbf  file  for  all  accounts. 


C_ADRV 

C_SDRV 

ITEM 

PONO_I 

REQ 

REQNO.I 


Memory  variable  stored  in  CONFIG. VAR  file 
designating  the  expected  disk  drive  location  for 
account  and  requisition  related  files. 

Memory  variable  stored  in  CONFIG.  VAR  file 
designating  the  expected  disk  drive  location  for 
supplier  files. 

dbf  file  holding  each  item  which  has  been 
requisitioned  and  related  information. 

ndx  file  to  ITEM. dbf  indexed  on  purchase  order 
numbers. 

dbf  file  holding  data  relating  requisitions  to 
specific  suppliers  and  accounts. 

ndx  file  to  ITEM. dbf  indexed  on  requisition 
numbers. 


REQNO_R  ndx  file  to  REQ. dbf  indexed  on  requisition 
numbers. 


SNAME_S  ndx  file  to  SUP. dbf  indexed  on  supplier  name. 

SUP  dbf  file  listing  names,  addresses,  and  phone 

numbers  of  known  suppliers. 
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SUPNO_S  ndx  file  to  SUP. dbf  indexed  on  supplier  number. 

TEMPLATE  an  empty  dbf  file  containing  the  structure  of 
fields  essential  in  creation  of  an  open  order 
requisition.  It  is  used  to  create  the  TEMPORD 
file  whenever  an  open  order  requisition  is 
executed. 

TEMPORD  a  temporary  file  used  to  hold  the  full  description 
of  all  items  in  an  open  order.  The  regular 
ITEM. dbf  only  stores  a  one  line  description  (38 
characters).  This  file  temporarily  holds  2 
additional  38  character  lines  until  the  SF-36  has 
been  printed.  After  the  SF-36  documert  has  been 
successfully  printed,  and  the  essential  details  of 
the  requisition  have  been  filed  in  the  ITEM. dbf 
and  REQ. dbf,  the  TEMPORD  file  is  erased. 


B.  Misc  Static  Memory  Variables 


CCOLOR  Holds  color  assignments  for  normal  text  screen 

output.  May  be  changed  to  accommodate  monochrome 
monitors  based  on  the  value  of  C_CLRMON,  however, 
since  the  program  is  expected  to  always  be  run  on 
the  same  system,  this  is  viewed  as  a  static 
variable. 

ERRCOLOR  Holds  color  assignments  for  error  messages  for 
screen  output.  May  be  changed  to  accommodate 
monochrome  monitors  based  on  the  value  of 
C_CLRMON,  however,  since  the  program  is  expected 
to  always  be  run  on  the  same  system,  this  is 
viewed  as  a  static  variable. 

FY  Last  digit  of  the  fiscal  year  used  in  the 

construction  of  the  appropriate  FY  oriented  julian 
date  for  use  in  forming  valid  requisition  numbers. 
The  fiscal  year  is  stored  in  a  FY. ID  file  on  the 
account  disk. 

MONEY  String  "MONEY  VALUE  ONLY"  to  be  inserted  on  on  a 

DD-1348  prepared  to  pay  an  NPS  RSS  billing. 

MSCOLOR  Color  assignments  for  highlighted  messages  for 
screen  output.  May  be  changed  to  accommodate 
monochrome  monitors  based  on  the  value  of 
C_CLRMON,  however,  since  the  program  is  expected 
to  always  be  run  on  the  same  system,  this  is 
viewed  as  a  static  variable. 

Wait  message  which  requests  user  to  "press  a  key 
to  continue.  This  was  used  vice  the  system  wait 
prompt  because  this  message  is  centered. 


WMSG 


The  following  data  elements  directly  receive  values  from 
user  inputs  during  the  program  run.  A  brief  description  of 
the  variable  is  followed  by  legal  value  constraints  ( length, 
data  type). 


ACCNO 


ADDR 


ADDR1 


ADDR2 


ADDR3 


ADDR2 


ANAME 


AREACODE 


CITY 


CODE 


DESCRP 


DIST 


EXT1 


EXT2 


FONE 


HISERNO 


Account  number  assigned  by  NPS  Comptroller  and 
entered  in  ACCNT. dbr  in  NEW_ACNT. PRG;  is  unique. 

( 5  char) 

Supplier  street  address  as  input  to  SUP. dbf  by 
user;  filed  in  SUP. dbf  by  NEW_SUPL.  PRG  (20  char) 

1st  line  of  address  of  receiver  of  material 
shipped  by  XPOR_ORD.  PRG.  (25  char) 

2nd  line  of  address  of  receiver  of  material 
shipped  by  XP0R_0RD.  PRG.  (25  char) 

3rd  line  of  address  of  receiver  of  material 
shipped  by  XP0R_0RD. PRG.  (25  char) 

4th  line  of  address  of  receiver  of  material 
shipped  by  XP0R_0RD.  PRG.  (25  char) 

Account  name,  usually  individual's  last  name,  as 
entered  in  ACCNT. dbf  in  NEW_ACNT.  PRG.  (12  char) 

Phone  areacode  of  supplier  as  input  to  SUP. dbf  in 
NEW_SUPL.  PRG.  (3  char) 

City  of  supplier  address  as  input  to  SUP. dbf  by 
user;  filed  in  SUP. dbf  by  NEW_5UPL.  PRG  (12  char) 

Code  of  individual  account  as  entered  in  ACCNT. dbf 
in  NEW_ACNT.  PRG.  (4  char) 

The  mem  var  which  receives  an  item  description. 

The  value  is  subsequently  filed  in  the  DESCRIP 
field  of  the  ITEM,  dbf  file.  (44  char) 

Distribution  symbol  used  in  ordering  stock- 
numbered  items.  (2  char) 

Phone  extention  of  the  1st  point  of  contact  listed 
in  a  supplemental  memo  accompanying  an  order 
exceeding  $1,000.  (4  char) 

Phone  extention  of  the  2nd  point  of  contact  listed 
in  a  supplemental  memo  accompanying  an  order 
exceeding  $1,000.  (4  char) 

Phone  number  of  supplier  as  input  to  SUP. dbf  in 
NEW_SUPL.  PRG.  (7  char) 


High  serial  number  in  range  of  serial  numbers 
assigned  to  a  specific  account  by  the  NPS 
Comptroller  and  entered  in  ACCNT. dbf  in 
NEW_ACNT.  PRG.  (4  char) 
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LASTUSED  Serial  number  used  in  most  recent  requisition  (not 
including  transportation  requisitions)  from  a 
specific  account  entered  in  ACCNT. dbf  in 
NEW_ACNT. PRG.  This  field  is  updated  in  the  process 
of  making  each  new  order.  (4  char) 

LOSERNO  Low  serial  number  in  range  of  serial  numbers  ' 
assigned  to  a  specific  account  by  the  NPS 
Comptroller  and  entered  in  ACCNT. dbf  in 
NEW_ACNT.  PRG.  (4  char) 

NOMEN  1  Used  to  hold  1st  line  of  a  short  description  for  a 
stock-numbered  items  in  BUY1_ITM. PRG.  (13  char) 

NOMEN  2  Used  to  hold  2nd  line  of  a  short  description  for  a 
stock-numbered  item  in  BUY1_ITM. PRG.  (13  char) 

P0C1  1st  "point  of  contact"  listed  in  a  supplemental 

memo  which  accompanies  orders  exceeding  $1,000. 

(22  char) 

POC2  2nd  "point  of  contact"  listed  in  a  supplemental 

memo  which  accompanies  orders  exceeding  $1,000. 

(22  char) 

PRI  1  letter  code  indicating  priority  assigned  to 

requisition  by  user.  (  A  ,  B  ,  or  C  ) 

QUNT  Quantity  of  item  to  be  ordered. 

*1  -  99999,  numeric) 

RESEARCH  Logical  variable  assigned  . T.  if  account  involves 
research  monies.  (1  logical) 

RDD  Reguired  delivery  date;  3  digit  julian  date  that 

material  is  desired;  assists  supply  department  in 
placing  order.  (1  -  366,  numeric) 

RDD_YES  Logical  variable  showing  if  the  user  has  chosen  to 
specify  an  RDD.  (  .  T.  if  rdd  specified;  .  F.  if  rdd 
not  specified) 

SHIPTO  Addressee  to  whom  material  is  to  be  transported 
when  requisition  is  to  cover  transportation  of 
material;  used  by  XPOR_ORD.  PRG  (25  char) 

STATE  State  of  supplier  address  as  input  to  SUP. dbf  by 

user;  filed  in  SUP. dbf  by  NEW_SUPL. PRG  (2  char) 

STKNUM  Federal  stock  number  of  item  ordered  by 
BUY1_ITM. PRG  (13  char) 

TODAY  Date  variable  holding  today's  date.  If 

transactions  are  to  be  generated  for  dates  other 
than  today,  this  date  must  be  modified  in 
GET_DATE. PRG  (MM/DD/YY,  date) 

Unit  of  order,  e. g.  'ea' ,  'dz',  etc.  (2  char) 


UNT 


The  following  data  elements  receive  values  from  withi 
the  program  during  the  program  run.  The  domain  of  values  i 
controlled  since  the  user  never  inputs  a  value  directly,  but 
rather,  values  are  assigned  internally  based  upon  his 
response.  An  example  of  this  type  of  data  element  may  be 
seen  in  the  following  construction  in  which  DEMAND  is  a 
dynamic  output  data  element: 


If  answer 
DEMAND 

SlSDEMAND 

endif 


AREAC0DE1  Areacode  of  2nd  supplier  to  appear  on  a 

supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  AREACODEl  is  not  input  by 
user,  but  rather  read  from  AREACODE  field  of  of 
the  record  the  user  has  chosen  from  the  SUP. dbf. 
Value  assignment  is  made  in  the  SUP_MEMO. PRG 
(3  char) 

AREACODE2  Areacode  of  3rd  supplier  to  appear  on  a 

supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  AREAC0DE2  is  not  input  by 
user,  but  rather  read  from  AREACODE  field  of  of 
the  record  the  user  has  chosen  from  the  SUP. dbf. 
Value  assignment  is  made  in  the  SUP_MEMO. PRG 
(3  char) 

CHECKER  an  internal  variable  which  assumes  the  value  of 

the  LASTUSED  serial  number  of  an  account,  used  in 
the  calculation  of  a  new  requisition  number  by 
CALC_REQ.  PRG  (4  char) 

CITY1  City  of  2nd  supplier  to  appear  on  a  supplemental 

memo  which  accompanies  orders  exceeding  $1,000.00. 

.  CITY1  is  not  input  by  user,  but  rather  read  from 
CITY  field  of  of  the  record  the  user  has  chosen 
from  the  SUP.  dbf .  Value  assignment  is  made  in  the 
SUP_MEM0.  PRG  (12  char) 

CITY2  City  of  3rd  supplier  to  appear  on  a  supplemental 

memo  which  accompanies  orders  exceeding  $1,000.00. 
CITY2  is  not  input  by  user,  but  rather  read  from 
CITY  field  of  of  the  record  the  user  has  chosen 
from  the  SUP.  dbf.  Value  assignment  is  made  in  the 
SUP_MEM0. PRG  (12  char) 

COUNTER  Numeric  variable  used  to  count  the  number  of  line 
items  in  a  requisition.  (1  -  13,  numeric) 

DEMAND  Refers  to  the  recurring  nature  of  demand  for  an 

item  or  service.  (  R  if  demand  is  recurring;  N' 
if  nonrecurring.  ) 

Document  identifier  as.per. p.4-7  of  Ref  1. 

(rA0Ar  for  NSN  items;  A0D  for  Navy  Forms  & 
Publications;  AOE  for  non-standard  stock  items.) 


DOC  ID 


w  p 


P>  r 


" yj  T'MPWyjlP.^1.1  yj  tf  ■. '  tu 


FONEl 

F0NE2 

FUND 

GO AHEAD 

JULIAN 

MARKER 

MS  Code 


Phone  number  of  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  FONEl  is  not  input  by  user, 
but  rather  read  from  FONE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.  Value 
assignment  is  made  in  the  SUP_MEM0.  PRG  (7  char) 

Phone  number  of  3rd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  FONE2  is  not  input  by  user, 
but  rather  read  from  FONE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.  Value 
assignment  is  made  in  the  SUP_MEMO.  PRG  (7  char) 

Fund  Code  as  described  on  p.  4-8  of  Ref.  1. 

(  2S  for  non-reimbursible  requisitions;  Y6'  for 
APA  material) 

Logical  control  value  used  to  control  execution 
flow  in  BUY2_ITM. PRG  after  running  of  WARNING. PRG 
( 1 ,  logical ) 

3  digit  numeric  value  based  on  julian  date  as 
calculated  by  GET_DATE.  PRG  (  1  -  366,  numeric) 

Tracks  the  number  of  lines  being  displayed  on  the 
screen  to  ensure  that  output  does  not  overflow 
screen.  Initialized  to  9,  triggers  a  wait  when 
value  >  23.  (9-24,  numeric) 

M&S  Code  as  described  on  p.  4-7  of  Ref.  1.  Value  is 
assigned  based  on  PRI  CODE.  Used  only  for  standard 
stock  requisitions.  ( TWT  for  PRI_CODE  =  'A;  ' Tr 

for  PRI_CODE  =  TBr  or  'C'). 


PRIORITY 

REQNO 

RMKO 


Priority  code  as  described  on  p.  4-8  of  Ref.  1. 
Value  is  assigned  based  on  PRI  CODE.  (08  for 
PRI_CODE  =  [a;:  T10r  for  PRI_C0DE  =  'B';  ' 15r  for 

PRI_CODE  =  'C'j. 


Requisition  number  which  is  concatenation  of  the 
last  digit  of  the  FY  +  3-digit  JULIAN  date  + 
4-digit  serial  number  which  is  taken  from  an 
individual  s  account.  ( 8  char) 

Remarks  which  are  printed  in  block  'O'  of  a 
DD-1348.  Consists  of  expense  element  appropriate 
to  the  type  of  material  ordered  as  per  Ref.  6. 
(Valid  assignments  are  'T,  TW,  rPT,  Rr,  'Q', 
and  L  .  ) 


ROUTE  Routing  identifier  as  described  on  p.  4-7  of  Ref.  1. 

Used  only  for  standard  stock  requisitions.  (  NOZ' 
for  NSC  Oakland,  ' NFZr  for  NAVPUBFORMCEN ,  Phil, 

'Z9S1  for  NPS  RSS ) . 
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SENDTO 


SERVICE 

SF36 


SIGNAL 
SNAME 1 

SNAME2 

STATE 1 

STATE2 

SUP ADR 

SUPNO 


Supplier  name  from  SNAME  field  of  record  selected 
by  user  from  SUP. dbf.  Used  in  Block  A  of  DD-1348. 

(20  char) 

Last  digit  of  current  FY.  Entered  in  block  45  of 
DD-1348.  (0-9,  char) 

Logical  variable  =  . T.  when  printing  of  an  SF-36 
is  required.  An  open  order  requires  printing  of  an 
SF-36  when 

1)  Item  description  exceeds  available  space  on 
DD-1348  (  >  22  char). 

2)  More  than  one  item  is  being  ordered  on  same 
open  order  requisition. 

( 1,  logical) 

Signal  Code  as  described  on  p. ,4-8  of  Ref.  1. 

(  D  for  free  publications,  A  for  all  other  items). 

Name  of  the  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  SNAME1  is  not  input  by  user, 
but  rather  read  from  SNAME  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.  Value 
assignment  is  made  in  the  SUP_MEMO. PRG  (20  char) 

Name  of  the  3rd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  SNAME2  is  not  input  by  user, 
but  rather  read  from  SNAME  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.  Value 
assignment  is  made  in  the  SUP_MEMO.  PRG  (20  char) 

State  address  of  the  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  STATE 1  is  not  input  by  user, 
but  rather  read  from  STATE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.  Value 
assignment  is  made  in  the  SUP_MEMO. PRG  (2  char) 

State  address  of  the  3nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  STATE2  is  not  input  by  user, 
but  rather  read  from  STATE  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.  Value 
assignment  is  made  in  the  SUP_MEMO. PRG  (2  char) 

Supplementary  address  of  requisition  as  described 
on  p.  4-8  of  Ref.  1.  This  is  also  known  as  the  job 
order  number.  It  results  from  a  rather  series  of 
concatenations  performed  in  GET_CAT. PRG 
(5  char) 

Unique  supplier  number  on  which  the  SUP. dbf  is 
indexed.  It  is  assigned  at  the  time  a  new 
supplier  is  entered  m  the  SUP. dbf  by 
NEW_SUPL. PRG.  It  is  based  upon  an  incrementing  of 
the  last  4-digits  of  the  supplier  s  phone  number. 

The  incrementation  continues  until  an  unused 
number  is  found.  (4  char) 


TOTVAL 


TYPEORDR 

ZIP1 

ZIP2 


Total  value  of  a  specific  requisition  or  series  of 
items.  Value  range  depends  upon  specific  usage, 
however,  in  general  (.01  -  99,999.99,  numeric). 


Type  of  order  as  assigned  by  NEW_ORDR.  PRG. (' OPEN' 
tST0CK,  TFORMr,  rPUB?,  rRSS$\  or^XPORT'). 


Zip  code  of  the  2nd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  ZIP1  is  not  input  by  user, 
but  rather  read  from  ZIP  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf .  Value 
assignment  is  made  in  the  SUP_MEMO. PRG  (5  char) 


Zip  code  of  the  3rd  supplier  to  appear  on  a 
supplemental  memo  which  accompanies  orders 
exceeding  $1,000.00.  ZIP2  is  not  input  by  user, 
but  rather  read  from  ZIP  field  of  of  the  record 
the  user  has  chosen  from  the  SUP. dbf.  Value 
assignment  is  made  in  the  SUP_MEMO. PRG  (5  char) 


SRdb  SOURCE  CODE  LISTINGS 


The  following  is  a  listing  of  the  40  SRdb  modules,  which 
are  written  in  dBASEIII  application  language.  Each  module  is 
prefaced  by  a  prologue  giving  the  name,  author,  purpose,  and 
a  summary  of  interaction  with  other  modules. 


BUY1_ITM.  PRG 
BUY2_ITM.  PRG 
CALC_REQ.  PRG 
CHG_PRICE.  PRG 
CONFIG.  PRG 
DISP_REQ.  PRG 
DIS1_REQ.  PRG 
DIS2_REQ.  PRG 
DIS3_REQ.  PRG 
FILE_ITM.  PRG 
FILE_REQ.  PRG 
FORM_ORD.  PRG 
GET_CAT.  PRG 
GET_DATE .  PRG 
GET_PRI.  PRG 
GET_RDD. PRG 
IN_PONO.  PRG 
IN_RCVD.  PRG 
MAIN.  PRG 
NEW  ACNT. PRG 


NEW_ORDR.  PRG 
NEW_SUPL.  PRG 
OPN_ORDR.  PRG 
PRNT_SMO.  PRG 
PRTSF36.  PRG 
PRT1348a.  PRG 
PRT13480.  PRG 
PRT1348X.  PRG 
PUB_ORD.  PRG 
QUIT.  PRG 
REQ_HDR. PRG 
RSS_ORD.  PRG 
SEL_ACNT.  PRG 
SEL_SUPL.  PRG 
SHW_NRI.  PRG 
STK_ORDR. PRG 
SUP_MEMO.  PRG 
WARNING.  PRG 
WARN_PRT. PRG 
WELCOME. PRG 
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Module  Name:  BUY1_ITM.PRG 
Author;  Tom  Trotter 
Purpose : 


This  module  generates  a  screen  for  user  input  of  a  single 
item  requisition.  It  is  invoked  in  situations  when  only 
one  item  may  be  purchased  per  requisition  #  (e.g.  when 
making  a  D0D,GSA,  or  NPS  RSS  stock  requisition) . 


This  module  is  called  by: 


F0RM_0RD . PRG 
PUB_0RD . PRG 
STK.ORDR.PRG 


This  module  calls:  N  /  A 
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ok  =  *  • 

do  while  ok  <>  'Y* 

public  descrp, unt, uprce, qunt, dist, stknum, nomenl, n omen 2 
clear 

3  2,24  SAY  "ENTER  ITEM  TO  BE  ORDERED" 

3  3,24  SAY  ” - " 

stknum  =  *  ' 

nomenl  =  *  ' 

nomen2  =  '  ' 

dist  =  '  * 

3  5,14  SAY  "Stock  number:” 

3  5,29  GET  stknum  picture  "3!" 

3  7,14  SAY  "Short  name:" 

3  7,27  GET  nomenl 

3  8,27  GET  nomen2 

3  10,14  SAY  "Distribution  COG  symbol:" 

3  10,40  GET  dist  picture  "3!" 
read 

descrp  =  nomenl  +  "  "  +  stknum 
unt  =  ' ea ' 
uprce  -  0.00 
qunt  =  0 

3  12,14  SAY  "Unit  of  issue:" 
a  12,30  GET  unt  picture  "3A" 

3  14,14  SAY  "Quantity:" 

3  14,25  GET  qunt  picture  "99999" 
if  typeordr  <>  'PUB' 

a  16,14  SAY  "Unit  price:  $" 
a  16,28  GET  uprce  picture  "99999.99" 
endi  f 
read 

set  color  to  Smscolor 

a  20,21  SAY  "Is  this  order  correct  ( Y / N ) ? " 
a  20,51  GET  ok  picture  "3!" 
set  color  to  Sccolor 
read 
enddo 
return 
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X  X 
X  Module  Names  BUY2_ITM.PRG  x 
x  x 
X  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  is  invoked  to  accept  multiple  items  per  single  x 
x  requisition  as  in  the  case  of  an  open  purchase.  The  user  x 
X  is  limited  to  only  12  items  per  requisition  due  to  the  x 
X  physical  size  of  a  SF-36  document.  There  is  currently  no  x 
X  provision  for  generation  of  multiple  SF-36's  per  requisition.  x 
X  Each  item  is  saved  to  the  item.dbf  after  it  is  certified  to  X 
X  be  correct  by  the  user.  The  process  will  stop  when  the  x 
X  user  leaves  the  item  description  blank.  x 
x  x 
x  This  module  is  called  by:  0PN_0RDR.PRG  X 
x  —  x 
X  This  module  calls:  FILE_ITM.PRG  x 
x  x 
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public  unt , uprce, totva 1 , qunt , goahead 
totval  =  0.00 
ok  =  '  ' 

do  while  counter  <  13 
goahead  =  .T. 
clear 

3  1,4  SAY  "Item 

a  1,12  SAY  counter  picture  "#i" 

3  2,24  SAY  "ENTER  ITEM  TO  BE  ORDERED" 

3  3,24  SAY  " - " 

descrp  =  1 
descrp2  =  ' 
descrp3  =  ' 

3  5,1  SAY  "Item  description:" 

3  6,1  GET  descrp 

3  6,41  SAY  "< — Only  this  line  is  filed" 

3  7,1  GET  descrP2 
3  8,1  GET  descrp3 

a  8,46  SAY  "(Blank  ends  process.)" 
read 

if  descrp  =  '  '  .and.  counter  =  1 

do  warning 
endif 

if  goahead 

if  descrp  =  '  ' 

return 
endif 
unt  -  ' ea * 
uprce  =  0.00 
qunt  =  0 

3  11,14  SAY  "Unit  of  issue:" 
a  11,30  GET  unt  picture  "3A" 
a  13,14  SAY  "Unit  price:  $" 
a  13,28  GET  uprce  picture  "99999.99" 
a  15,14  SAY  "Quantity:" 

3  15,25  GET  qunt  picture  "99999" 
read 

set  color  to  Smscolor 

3  20,21  SAY  "Is  this  order  correct  (Y/N)?" 
3  20,51  GET  ok  picture  "3!" 
set  color  to  Sccolor 
read 

if  ok  =  *Y*  .and.  qunt  <>  0 

totval  =  totval  +  (upr  .e  X  qunt) 
do  file_itm 
if  counter  =  1 
select  E 
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X  X 
x  Module  Name:  CALC_REQ.PRG  X 
x  X 
x  Author:  Tom  Trotter  X 
x  X 
x  Purpose:  This  module  calculates  and  assigns  the  appropriate  X 
x  requisition  number  (reqno)  for  each  new  requisition.  X 
x  An  8-digit  reqno  is  comprised  of  a  4-digit  julian  date,  X 
x  and  the  last  4  digits  will  be  the  next  serial  number  to  X 
X  be  used  for  a  specific  account.  The  only  exception  is  X 
x  when  the  requisition  is  for  transportation  expenses,  in  x 
X  which  case  the  user  is  prompted  to  phone  the  NPS  X 
X  Comptroller  to  have  the  last  4  digits  assigned.  X 
x  X 
X  This  module  is  called  by:  NEW_ORDR.PRG  X 
X  X 
x  This  module  calls:  N  /  A  X 
X  X 
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public  reqno 

reqno  =  str(year( today)-1980 , 1  ) 
if  year(today)  >  1989 

reqno  =  str(year( today )  —  1 9  9  0 , 1 ) 
endif 

reqno  =  reqno  +  substr(str( iulian+1 000 , 4 ) , 2) 
if  typeordr  =  'XPORT* 
ok  =  '  ’ 

ans  =  2 

do  while  ok  <>  'Y' 
set  scoreboard  on 

a  6? 20  SAY  "ENTER  TRANSPORTATION  SERIAL  NUMBER" 

3  7,20  SAY  " - " 

3  9,16  SAY  "Transportation  requests  require  issuance  of  a  special" 
3  10,16  SAY  "serial  number  directly  from  the  comptroller.  Phone" 

a  11,16  SAY  "the  NPS  comptroller  at  x2257  to  obtain." 

3  13,24  SAY  "Select  an  action:  " 

3  14,24  SAY  " - " 

a  15,20  SAY  "1.  Ready  to  enter  serial  number" 

a  16,20  SAY  "2.  Abort  to  main  menu" 

a  13,43  GET  ans  picture  "•"  range  1,2 

read 

set  scoreboard  off 
do  case 

case  ans  =  1 

xportno  =  '  ' 

a  13,0  clear 

3  13,24  SAY  "Enter  Serial  *:" 

3  13,40  get  xportno  picture  "XXXX" 
read 

set  color  to  Smscolor 
a  15,24  SAY  "Correct  CY/N)?" 
set  color  to  Sccolor 
3  15,39  GET  ok  picture  "3!" 
read 

reqno  =  reqno  +  xportno 
case  ans  =  2 

return  to  master 
endcase 
enddo 
else 

public  checker 
checker  =  A->lastused 
check  =  val(checker)  +  1 
if  check  >  va 1 ( A->hiserno ) 
checker  =  A->loserno 
else 


checker  =  str(check,4) 
endif 

reqno  =  reqno  +  checker 
endif 


return 
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X  X 

x  Module  Name:  CHG_PRICE.PRG  x 

X  X 

x  Author:  Tom  Trotter  x 

x  x 

X  Purpose:  This  module  allows  the  user  to  change  the  price  of  an  item  x 

X  if  a  price  revision  is  received.  It  is  common  for  items  to  x 

X  be  received  at  different  prices  than  those  used  at  the  time  x 

X  of  ordering.  x 

x  x 

x  This  module  is  called  by:  MAIN.PRG  x 

x  X 

X  This  module  calls:  N  /  A  x 

X  x 

X  x 
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ans  =  •  ' 

a  l?29  SAY  "CHANGE  ITEM  PRICE" 

3  6,29  SAY  " - " 

3  8,14  SAY  "This  module  is  used  when  the  item's  final  price" 

3  9,14  SAY  "differs  from  that  on  the  orginal  requisition.  You" 
a  10,14  SAY  "will  be  shown  all  items  associated  with  a  specific" 
3  11,14  SAY  "requisition  i  or  purchase  order  t.  Upon  displaying" 
a  12,14  SAY  "each  item,  you  will  be  given  the  opportunity  to" 

3  13,14  SAY  "change  the  item's  unit  price  or  scroll  to  the  next" 
3  14,14  SAY  "item." 
set  color  to  8mscolor 
a  17,28  SAY  "Continue  (Y/N)?" 

3  17,45  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  <>  'Y' 
return 
endif 

do  while  .T. 
ansi  -  3 

set  scoreboard  on 
clear 

3  8,20  SAY  "Preparing  to  change  an  item  price" 
a  16,32  SAY  "Select:" 

3  16,41  GET  ansi  picture  "t"  range  1,3 

a  17,22  SAY  " - " 

3  18,22  SAY  "[  1.  Show  by  requisition  t  1" 

3  19,22  SAY  "[  2.  Show  by  purchase  order  #  ]" 

a  20,22  SAY  "[  3.  Return  to  main  menu  ]" 

a  21,22  SAY  " - " 

read 

set  scoreboard  off 
do  case 

case  ansi  =  1 

kind  =  "Requisition  *" 

select  D 

use 

use  8item  index  8reqno_i 
field  =  "D->reqno" 
case  ansi  =  2 

kind  =  "Purchase  Order  t" 

select  D 

use 

use  &item  index  &pono_i 
field  =  "D->pono" 
case  ansi  =  3 
return 
endcase 
ans2  =  *  ' 

do  while  ans2  <>  'Y' 


a1!?^  SAY  "Enter" 

3  9,22  SAY  kind 
3  9  38  SAY  "s'1 

a  9 ' 41  GET  key  picture  "fiMtitt" 

3  11,15  SAY  "Note  -  Blank  ends  process" 
read 

if  key  =  *  • 

return  to  master 
endif 

set  color  to  Smscolor 
3  14,28  SAY  "Correct  CY/N)?" 
a  14,44  GET  ans2  picture  "3!" 
set  color  to  8ccolor 
read 
enddo 
find  8key 

if  eof ( )  .or.  bofC) 

3  14,0  clear 
3  14,23  SAY  kind 

3  14,39  SAY  "not  in  file." 

3  16,11  SAY  "Please  double  check  the" 

3  16,35  SAY  kind 

3  16,53  SAY  "and  try  again." 

set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
else 

do  while  &field  =  key  .and.  .not.  eof ( ) 
ans3  =  '  N* 
c  1 03  r 

a  7,11  SAY  "Requisition  #:" 

3  7,27  SAY  reqno 

3  9,11  SAY  "Purchase  Ord 

3  9,28  SAY  pono 

3  11,11  SAY  "Item:" 

3  11,18  SAY  descrip 
a  13,11  SAY  "Quantity:" 

3  13,22  SAY  quant 
a  13,39  SAY  "Unit  Price:  $" 

3  13,53  SAY  uprice 
set  color  to  Smscolor 

3  16,21  SAY  "Change  unit  price  (Y/N)?" 

3  16,48  GET  a  ns  3 
set  color  to  Sccolor 
read 

if  upper(ans3)  =  'Y' 
newprice  =  uprice 

a  13,53  GET  newprice  picture  "tit##. it" 
read 

if  newprice  <>  0 
ans4  -  '  ' 
a  16,0  clear 
set  color  to  Smscolor 
3  16,25  SAY  "Correct  (Y/'N)?" 

a  16,39  GET  ans4 

set  color  to  Sccolor 
read 

if  upper(ans4)  =  ’Y’ 

replace  uprice  with  newprice 
endif 
else 

ans4  =  ’N’ 

set  color  to  Smscolor 
3  21,21  SAY  "Is  item  now  FREE?" 

3  21,46  GET  ans4 

set  color  to  Sccolor 
read 

if  upper(ans4)  =  *Y' 


replace  uprice  with  newpnce 
endif 
endif 
skip  -1 
endif 
skip 
enddo 
endif 
enddo 
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X  X 
X  Nodule  Name:  CONFIG. PRG  x 
x  x 
x  Author:  Tom  Trotter  x 
X  x 
X  Purpose:  After  displaying  an  appropriate  warning  banner,  this  module  x 
X  displays  the  current  program  system  configuration  and  allows  x 
X  the  user  to  change  it.  Changes  are  saved  to  a  file  of  X 
X  memory  variables  (config.var) .  X 
x  x 
X  This  module  is  called  by:  MAIN. PRG  X 
x  x 
X  This  module  calls:  N  /  A  x 
X  x 
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ans  =  '  N ' 

a  4,32  SAY  "CONFIGURATION" 

3  5,32  SAY  " - " 

3  7,16  SAY  "This  program  has  been  preconfigured  for  your  use" 
3  8,16  SAY  "and  should  not  require  reconfiguration  unless" 

3  9,16  SAY  "transported  to  another  system  or  department." 

3  11,16  SAY  "WARNING  -  Configuration  changes  should  only  be" 

3  12,26  SAY  "made  by  personnel  familiar  with  dBASE  III." 
set  color  to  GB+/  ,  W+/ 

3  15,23  SAY  "Change  Configuration  (Y/N)?" 

3  15,52  GET  ans 

set  color  to  GR+/B,W+/  ,B+ 

read 

if  upper(ans)  <>  *Y? 

return 

endif 

clear 

restore  from  config.var 
c_sdrv  =  substr(c_sdrv, 1, 1 ) 
c_adrv  =  substr( c_adrv, 1 , 1 ) 

3  2,17  SAY  "This  program  is  configured  as  follows:" 
a  6,17  SAY  "Department : " 
a  6,30  SAY  c_dept 
a  8,17  SAY  "Bldg:" 

3  8,24  SAY  c_bldg 
3  10,17  SAY  "Room:" 

3  10,24  SAY  c_room 
3  12,17  SAY  "Telephone:" 
a  12,29  SAY  c_phone 

a  14,17  SAY  "Database  disk  locations:  " 

3  15,37  SAY  "Suppliers:  ’  '  drive" 

a  15,49  SAY  c_sdrv 

3  17,37  SAY  "Accounts:  *  '  drive" 

a  17,49  SAY  c_adrv 

3  19,17  SAY  "Color  Monitor  (T/F):" 

3  19,38  SAY  c_clrmon 

ans  =  '  ' 

set  color  to  R/  ,  R/W 

3  21,17  SAY  "Is  this  the  correct  configuration?  (Y/N)  " 

3  21,60  GET  ans 

set  color  to  GR+/B,  W+/  ,  B+ 

read 

if  upper(ans)  =  "N" 
ok  =  .F. 

do  while  .not.  ok 
a  6,30  GET  c  dept 
3  8,24  GET  clbldg 
a  10,24  GET  c_room 
a  12,29  GET  c_phone 
3  15,49  GET  c_sdrv 
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rt 


do  while  .not.  ( upper (c_sdrv)  =  *A'  .or.  upper(c_sdrv) 
upper(c_sdrv)  =  'Cf  .or.  upper(c_sdrv)  =  'D')  ~ 

3  15,49  GET  c_sdrv 
read 
enddo 

9  17,49  GET  c_adrv 
read 

do  while  .not.  ( upper (c_adrv)  =  'A*  .or.  upper(c_adrv) 
upper(c_adrv)  =  *C*  .or.  upper(c_adrv)  =  'D') 
a  17,49  GET  c_adrv 
read 
enddo 

3  19,38  GET  c_clrmon 
3  21,60  GET  ans 
read 

if  upper(ans)  =  'Y* 
ok  =  .T. 

c_sdrv  =  Cc_sdrv)  + 
c_adrv  =  (c_adrv)  +  ' : • 
save  to  config.var  all  like  c_* 
endif 
enddo 
endif 
return 
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X 

Module  Name:  DISP_REQ.PRG  x 

X 

Author:  Tom  Trotter  x 

x 

Purpose:  This  module  presents  the  user  with  menus  for  use  in  the  X 

selection  of  requisitions  for  display.  The  user  is  given  X 

the  option  of  screen  or  printer  output.  x 

x 

This  module  is  called  by:  MAIN.PRG  x 

x 

This  module  calls:  DIS1_REQ  x 

DIS2_REQ  x 

DIS3_REQ  x 

x 
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do  while  .T. 
ans  =  '  ' 

3  7?28  SAY  "DISPLAY  REQUISITION" 

3  8,28  SAY  " - " 

3  10,15  SAY  "This  program  will  display  one  or  more  requisitions" 

3  11,15  SAY  "subject  to  user  selection  criteria.  The  list  may" 

3  12,15  SAY  "be  sent  to  the  screen  or  printer  at  the  user's" 

3  13,15  SAY  "option." 

set  color  to  Smscolor 
3  16,27  SAY  "Continue  (Y/N)?" 

3  16,44  GET  ans 

set  color  to  &ccolor 

read 

if  upper(ans)  <>  'Y' 
return 
endif 
pick  =  1 

3  2,27  SAY  "DISPLAY  REQUISITIONS" 
set  color  to  Smscolor 
3  5,29  SAY  "Selection:  " 
set  color  to  8ccolor 

3  5,41  GET  pick  picture  "i"  range  0,3 

3  6,11  SAY  "==========================================================" 

3  7,11  SAY  "/  0.  Return  to  main  menu  /" 

3  8,11  SAY  "/  1.  Display  single  requisition  /" 

3  9,11  SAY  "/  2.  Display  requisitions  from  specific  account  /" 

3  10,11  SAY  "/  3.  Display  requisitions  subject  to  account  t  &  date  /" 

3  11,11  SAY  "==========================================================" 

read 

if  pick  =  0 
return 
endif 
outpt  =  1 

set  color  to  Smscolor 
3  14,27  SAY  "Select  Display:  " 
set  color  to  Sccolor 

3  14,44  GET  outpt  picture  "t"  range  1,2 
3  15,27  SAY  "==================« 

3  16,27  SAY  "/  1.  Screen  /" 

3  17,27  SAY  "/  2.  Printer  /" 

3  18,27  SAY  "==================» 

read 

public  prtout 
if  outpt  =  1 
prtout  =  .F. 
else 

prtout  =  .T. 
endif 
do  case 


case  pick  =  1 
do  disl_req 
case  pick  =  2 
do  dis2_req 
case  pick  =  3 
do  dis3_req 
endcase 
enddo 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X  X 
X  Module  Name:  DIS1_REQ.PRG  * 
X  X 
X  Authors  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  outputs  the  contents  of  one  requisition  as  x 
X  selected  by  the  user  input  of  a  requisition  t.  x 
x  x 
X  This  module  is  called  by:  DISP  REQ.PRG  X 
x  x 
x  This  module  calls:  REQ_HDR.PRG  * 
X  WARN_PRT . PRG  * 
x  x 
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do  while  .T. 
clear 

key  =  '  ' 

3  9,25  SAY  "Enter  Requisition  t:" 

3  9,47  GET  key  picture  "#»######" 

3  11,28  SAY  "(Blank  ends  process.)" 
read 

if  key  =  '  ' 
return 
endif 

counter  -  0 
marker  -  9 
endif 
select  C 
use 

use  Sreq  index  &reqno_r 
find  &key 
if  eof ( ) 

3  14,28  SAY  "REQUISITION  NOT  FOUND" 

3  16,18  SAY  "Double  check  the  requisition  #  and  try  again." 
else 

totcnt  =  0 
value  =  0.00 
totval  =  0.00 
if  prtout 

do  warn_prt 

3  10,31  SAY  "LOAD  PRINTER" 

3  12  37  SAY  "8" 

3  14! 25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  '  • 
wait  ' * 
endif 

key2  =  C->accno 

select  A 

use 

use  &accnt  index  &accno_a 

find  8key2 

key3  =  C->supno 

select  B 

use 

use  &sup  index  &supno_s 

find  8key3 

do  req_hdr 

select  D 

use 

use  Sitem  index  &reqno_i 
find  8key 

do  while  D->reqno  =  C->reqno  .and.  .not.  eof ( ) 
counter  =  counter  +  1 
marker  -  marker  +  1 
totcnt  -  totcnt  +  D->quant 
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value  =  D->quant  *  D->uprice 
totval  =  totval  +  value 
9  marker, 1  SAY  counter  picture  "t#" 

9  marker, 5  SAY  D->descrip 
9  marker, 46  SAY 

9  marker, 47  SAY  D->uprice  picture  "*#, 

9  marker, 57  SAY  D->quant  picture  "i#tt#" 

9  marker,66  SAY  D->rcvd 

9  marker, 70  SAY  D->pono 

if  marker  >  21  .and.  .not.  prtout 
marker  =  9 
wait  Swmsg 
9  9,0  clear 
endif 
skip 
enddo 

if  counter  <>  0 

marker  =  marker  +  3 
9  marker, 15  SAY  "Total  items:" 

9  marker, 28  SAY  totcnt  picture  "tttttt" 

9  marker, 42  SAY  "Total  Value:  $" 

9  marker, 57  SAY  totval  picture  "t, #tt, ##t . f* 
endif 
if  prtout 

9  marker, 70  SAY  chr(13) 
set  device  to  screen 
else 

set  color  to  Smscolor 
wait  Swmsg 

set  color  to  S  ccolor 
endif 
endif 
enddo 
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X  X 
X  Module  Name:  DIS2_REQ  X 
X  X 
X  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  displays  all  requisitions  from  a  single  account  x 
x  as  specified  by  the  user.  The  SEL_ACCNT  module  is  used  to  x 
X  select  an  account/  and  this  module  will  then  skip  through  x 
X  the  req.dbf  and  item.dbf  until  all  requisitions  for  the  x 
X  account  have  been  displayed.  x 
x  x 
X  This  module  is  called  by:  DISP  REQ.PRG  x 
X  x 
X  This  module  calls:  SEL_ACNT.PRG  * 
X  REQ_HDR.PRG  X 
X  WARN_PRT . PRG  x 
x  x 
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do  sel_acnt 
key  =  A->accno 
select  C 
use 

use  &req  index  &accno_r 
find  &key 
if  eof ( ) 
clear 

3  15/18  SAY  "No  Requisitions  on  file  for 
3  17,20  SAY  "Account  Name:" 

3  17,34  SAY  A->aname 
3  19,20  SAY  "Account  Number:" 

3  19,36  SAY  A->accno 
else 
clear 
if  prtout 
do  warn_prt 
clear 

3  10,31  SAY  "LOAD  PRINTER" 

3  12,37  SAY  "8" 

3  14*25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  •  • 
wait  *  * 
endif 

do  while  C->accno  =  A->accno  .and.  .not.  eof (  ) 
key2  =  C->supno 
select  B 
use 

use  &sup  index  &supno_s 

find  8key2 

counter  =  0 

marker  =  9 

totcnt  =  0 

value  -  0.00 

totval  =  0.00 

do  req_hdr 

key3  =  C->reqno 

select  D 

use 

use  Sitem  index  &reqno_i 

find  8key3 

endif 

do  while  D->reqno  =  C->reqno  .and.  .not.  eof() 
counter  =  counter  +  1 
marker  =  marker  +  1 
totcnt  =  totcnt  +  quant 
value  -  D->quant  *  D->uprice 
totval  =  totval  +  value 
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3  marker, 1  SAY  counter  picture  "tit" 

3  marker,5  SAY  D->descrip 
3  marker,46  SAY  "$" 

3  marker,47  SAY  D->uprice 
3  marker, 57  SAY  D->quant 
3  marker, 66  SAY  D->rcvd 
3  marker,70  SAY  D->pono 
if  marker  >  21  .and.  .not.  prtout 
marker  =  9 

set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
3  9,0  clear 
endif 
skip 
enddo 

if  counter  <>  0 

marker  =  marker  +  3 
3  marker, 15  SAY  "Total  items:" 

3  marker, 28  SAY  totcnt  picture  "#####" 

3  marker, 42  SAY  "Total  value:  $" 

3  marker, 57  SAY  totval  picture  "t, tit, ttt . tt 
endif 
select  C 
skip 

if  .not.  prtout 

set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
endif 
enddo 
if  prtout 

3  marker, 70  SAY  chr(13) 
set  device  to  screen, 
endif 
endif 
return 
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X  X 
X  Module  Name:  DIS3_REQ.PRG  * 
X  X 
x  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  displays  all  requisitions  from  a  user  selected  x 
X  accounts  subject  to  a  screen  on  the  origin  date  of  the  X 
X  requisition.  Output  may  be  directed  to  the  screen  or  the  X 
x  printer  at  the  user's  option.  * 
x  x 
X  This  module  is  called  by:  DISP_REQ.PRG  X 
x  x 
X  This  module  calls:  SEL_ACNT.PRG  x 
X  REQ_HDR.PRG  X 
X  WARN  PRT.PRG  X 
x  x 
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hi date  =  today 

lodate  =  CT0D("1 0/1/85") 

clear 

3  6,26  SAY  " - " 

3  8,26  SAY  "Find  Requisitions  Created" 

3  10,34  SAY  "Between" 
a  12,26  GET  lodate 
3  12,36  SAY  "and" 
a  12,43  GET  hidate 

3  13,26  SAY  "mm/dd/yy  mm/dd/yy" 

read 

do  sel_acnt 
counter  =  0 
marker  =  9 
key  =  A->accno 
select  C 
use 

use  Sreq  index  Saccno_r 
find  &key 
if  eof ( ) 

a  8,25  SAY  "No  Requisitions  Are  on  File  For" 

3  10,29  SAY  "Account  Name:" 
a  10,44  SAY  A->aname 
a  12,29  SAY  "Account  Number:" 

3  12,46  SAY  A->accno 
3  14,36  SAY  "Between" 

3  16,27  SAY  lodate 
3  16,38  SAY  "and" 
a  16,46  SAY  hidate 
else 
clear 

if  prtout 
do  warn_prt 
clear 

a  10,31  SAY  "LOAD  PRINTER" 

3  12,37  SAY  "8" 

a  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  *  ' 
wait  " 
endif 

do  while  C->accno  =  A->accno  .and.  .not.  eof ( ) 
if  C->rdate  >=  lodate  .and.  C->rdate  <=  hidate 
key2  =  C->supno 
select  B 
use 

use  &sup  index  8supno_s 
find  8key2 
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totcnt  =  0 
value  =  0.00 
totval  =  0.00 
counter  =  0 
marker  =  9 
do  req_hdr 
key3  =  C->reqno 
select  D 
use 

use  Si  tern  index  Sreqno_i 
find  Skey3 

do  while  D->reqno  =  C->reqno  .and.  .not.  eof ( ) 
counter  =  counter  +  1 
marker  =  marker  +  1 

9  marker, 1  SAY  counter  picture  "tit" 

9  marker, 5  SAY  D->descrip 
9  marker, 46  SAY  "$" 

9  marker, 47  SAY  D->uprice 
9  marker,57  SAY  D->quant 
9  marker, 66  SAY  D->rcvd 
9  marker, 70  SAY  D->pono 
totcnt  =  D->quant  +  totcnt 
value  =  D->quant  X  D->uprice 
totval  =  value  +  totval 
if  marker  >  21  .and.  .not.  prtout 
marker  =  9 

set  color  to  &mscolor 
wait  Swmsg 
set  color  to  Sccolor 
9  9,0  clear 
endif 
skip 
enddo 

if  counter  <>  0 

marker  =  marker  +  3 
9  marker, 15  SAY  "Total  Items:" 

9  marker,28  SAY  totcnt  picture  "ttttt" 

9  marker, 45  SAY  "Total  Value:  $" 

9  marker, 60  SAY  totval  picture  "i, tit, ttt . it" 
set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
endif 
endif 
select  C 
skip 
enddo 
if  prtout 

9  marker, 70  SAY  chr(13) 
set  device  to  screen 
endif 

if  counter  =  0 
clear 

9  8,25  SAY  "No  Requisitions  Are  on  File  For" 

9  10,29  SAY  "Account  Name:" 

9  10,44  SAY  A->aname 

9  12,29  SAY  "Account  Number:" 

9  12,46  SAY  A->accno 
9  14,36  SAY  "Between" 

9  16,27  SAY  lodate 
9  16,38  SAY  "and" 

9  16,46  SAY  hidate 
set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
endif 
endif 
return 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

X  Module  Name:  FILE  ITM.PRG  X 

X  X 

x  Author:  Tom  Trotter  x 

x  x 

X  Purpose:  This  module  is  used  to  append  a  blank  record  to  the  item.dbf  X 

X  and  fill  in  several  fields  from  current  memory  variables.  X 

x  x 

x  This  module  is  called  by:  BUY2_ITM.PRG  x 

x  F0RM_0RD.PRG  X 

x  PUB_0RD . PRG  x 

x  STK_0RDR . PRG  * 

x  x 

X  This  module  calls:  N  /  A  x 

x  x 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

select  D 
use 

use  &item  index  Sreqno_i , &pono_i 
append  blank 

replace  descrip  with  M->descrp 
replace  unit  with  M->unt 
replace  quant  with  M->qunt 
replace  uprice  with  M->uprce 
replace  reqno  with  M->reqno 
use 
return 
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X  X 
x  Nodule  Name<  FILE_REQ. PRG  x 
X  X 
X  Authori  Tom  Trotter  X 
x  x 
X  Purpose!  This  module  is  used  to  append  a  blank  record  to  the  req.dbf  X 
X  and  fill  in  several  fields  from  current  memory  variables.  x 
x  x 
X  This  module  is  called  byt  XP0R_0RD.PRG  X 
X  F0RM_0RD.PRG  X 
X  PUB  ORD.PRG  X 
X  STK~ ORDR.PRG  X 
X  OPN  ORDR.PRG  X 
X  RSS_0RD . PRG  X 
x  X 
X  This  module  callsi  N  /  A  X 
x  x 
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select  C 
use 

use  Sreq  index  8reqno_r,Saccno_r 
append  blank 

replace  reqno  with  M->reqno 
replace  accno  with  M->accno 
replace  pri_code  with  M->pri 
replace  supno  with  M->supno 
replace  rdate  with  M->today 
if  typeordr  <>  'XPORT' 
select  A 

replace  lastused  with  M->checker 
endif 
return 
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Module  Name:  FORM  ORD.PRG 


Author:  Tom  Trotter 


Purpose: 


This  module  coordinates  the  process  of  ordering  forms 
from  NSC  Oakland. 


This  module  is  called  by:  NEW_ORDR.PRG 


This  module  calls: 


GET.RDD.PRG 
GET_CAT . PRG 
GET  PRI.PRG 
BUY1_ITM . PRG 
FILE  REQ.PRG 
FILE~ITM . PRG 
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ans  =  *  * 
clear 

3  8,33  SAY  "FORMS  ORDER" 

3  9,33  SAY  " - " 

3  11,13  SAY  "This  program  prepares  the  documents  required  to  order" 
a  12,13  SAY  "forms  from  NSC  OAKLAND.  If  you  desire  to  order  forms" 
3  13,13  SAY  "from  NAVPUBFORMCEN  Philadelphia,  do  not  continue." 
set  color  to  Smscolor 
a  16,30  SAY  "Continue  CY/N)?" 


set  color  to  Sccolor 
3  16,47  GET  ans 
read 

if  upper(ans)  <>  *Y* 
return 
endif 

public  sendto,supno, route 

sendto  =  '(00228)  NSC  OAKLAND,  CA ' 

supno  =  '1111* 

route  =  'NOZ' 

do  get_rdd 

do  get_pri 

do  get_cat 

do  buyl_itm 

public  docid, signal, fund 
docid  =  ' AOD* 
signal  =  'A' 
if  uprce  =  0 
fund  =  ' Y6 ' 


fund  =  ' Y6 ' 
else 

fund  =  * 2S ' 
endif 

do  prtl348a 
do  file_req 
do  file_itm 
return  to  master 


v '.-.V  ;.-.v . 
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X  X 
X  Module  Name:  GET_CAT . PRG  x 
x  x 
X  Author:  Tom  Trotter  X 


Purpose:  This  module  presents  the  user  with  a  menu  from  which  to 

select  the  appropriate  category  of  items  to  be  purchased. 
Other  memory  variable  assignments  are  made  based  upon  the 
category  selected  by  the  user.  The  user  is  also  queried 
concerning  the  recurring  nature  of  the  demand. 

This  module  is  called  by:  FORM_ORD.PRG 

OPN  ORDR.PRG 
PUB~0RD. PRG 
STKlORDR.PRG 
XPOR  ORD.PRG 


This  module  calls:  N  /  A 
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public  supadr, rmko 
ans  =  '  ' 

if  typeordr  =  'OPEN'  .or.  typeordr  =  'STOCK* 
do  while  ans  <>  'Y' 
ansi  =  1 

C  1  63  P 

a  0,20  SAY  "SELECT  CATEGORY  OF  ITEMS  TO  BE  PURCHASED" 

3  1,20  SAY  " - " 

a  3,11  SAY  "1.  CONSUMABLE  SUPPLIES  (e.g.  subscriptions  to  periodicals" 
3  4,17  SAY  "cables,  floppy  disks,  misc  items  for  micro  computers," 

3  5,17  SAY  "and  other  items  having  a  useful  life  of  <  1  year)." 
a  7,11  SAY  "2.  MINOR  PROPERTY  (i.e.  unit  value  >  $  1000.  and  a  useful" 
a  8,17  SAY  "life  of  at  least  2  years)." 

a  10,11  SAY  "3.  PLANT  PROPERTY  (i.e.  unit  value  >  $  1000.)" 

3  12,11  SAY  "4.  MAINTENANCE  FOR  MINOR  PROPERTY" 

a  14,11  SAY  "5.  MAINTENANCE  FOR  PLANT  PROPERTY" 

a  16,11  SAY  "6.  OTHER  PURCHASED  SERVICES" 

3  18,6  SAY  "Note  -  All  items  on  single  requisition  must  be  of  same  " 
a  18,61  SAY  "category" 

3  19,13  SAY  "(e.g.  cannot  order  hardware  8  software  on  the  same  order), 
a  21,23  SAY  "Selection:" 
a  21,35  GET  ansi  picture  "t"  range  1,6 
read 

set  color  to  Smscolor 
a  23,21  SAY  "Correct  (Y/N)?" 

a  23,37  GET  ans  picture  "3!" 

set  color  to  Sccolor 
read 
enddo 
endif 

if  typeordr  =  'FORM'  .or.  typeordr  -  'PUB*  .or.  typeordr  =  'RSS$' 
ansi  =  1 
endif 

if  typeordr  =  'XPORT' 
ansi  =  7 
endif 
do  case 

case  ansi  -  1 
rmko  =  'T* 

supadr  =  *T'  +  trim( A->accno )  +  '00' 
case  ansi  =  2 
rmko  =  'W' 

supadr  =  'W'  +  trim(A->accno)  +  'MA* 
case  ansi  =  3 
rmko  -  'W' 

supadr  =  'W'  +  trim( A->accno )  +  *PA' 
case  ansi  =  4 
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rmko  =  *P* 

supadr  =  'P*  +  trimC A->accno )  +  *MM' 
case  ansi  =  5 
rmko  =  ’P* 

supadr  =  'P'  +  trimC A->accno )  +  *PM' 
case  ansi  =  6 
rmko  =  'Q' 

supadr  =  'Q1  +  trim(A->accno)  +  'QS* 
case  ansi  =  7 
rmko  =  • L 1 

supadr  =  'L*  +  trimC A->accno )  +  '00' 
endcase 

if  A->research 

supadr  =  A->accno 
endif 

public  demand 
if  typeordr  =  ' RSS$' 
demand  =  *R' 
else 

ans  =  •  ' 
ans2  =  1  » 

do  while  ans2  <>  'Y* 

I  t3, 29  SAY  "SPECIFY  DEMAND  TYPE" 

9  9,29  SAY  " - " 

3  11,18  SAY  "Is  there  a  recurring  demand  for  the" 

3  12,18  SAY  "items/services  on  this  requisition  CY/N)T" 

3  12,62  GET  ans  picture  "3!" 

read 

set  color  to  Smscolor 
a  15,30  SAY  "Correct  CY/N)?" 
a  15,46  GET  ans2  picture  "3!" 
set  color  to  Sccolor 
read 

if  ans  =  'Y' 
demand  =  'R' 
else 

demand  =  'N* 
endif 
enddo 
endif 
return 
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rv 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X  X 
X  Module  Name:  GET_DATE.PRG  X 
X  X 
x  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  Since  dBASE  III  does  not  allow  one  to  change  the  system  X 
X  date  from  within  dBASE*  this  module  allows  the  user  to  X 
X  update  the  memory  var  (TODAY)  if  it  is  in  error.  It  also  X 
X  will  allow  generation  of  documents  dated  other  than  the  X 
X  current  date.  After  the  desired  date  is  confirmed  by  the  X 
X  user*  a  Julian  date  is  calculated.  Leap  years  are  accounted  X 
x  for  in  the  julian  date  calculation.  x 
x  x 
X  This  module  is  called  by:  MAIN.PRG  x 


This  module  calls: 


N  /  A 
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clear  memory 
today  =  date( ) 
do  while  .T. 
ans  =  '  ' 

9  5,28  SAY  "CONFIRM  TODAY'S  DATE" 

3  7,33  SAY  today 
3  9,31  SAY  "(Y/N)?" 

3  9,39  GET  ans 
read 

if  upper(ans)  <>  'Y* 

a  5,28  SAY  "ENTER  TODAY'S  DATE" 

3  7,33  GET  today  picture  "3D" 

3  8,33  SAY  "MM/DD/YR" 

3  15,10  SAY  "Note  -  Leading  zeros  are  required  for  single  digit  values." 
read 
else 

mon  =  month( today) 
do  case 

case  mon  =  1 
julian  =  0 
case  mon  =  2 
julian  =  31 
case  mon  =  3 
julian  =  59 
case  mon  =  4 
julian  =  90 
case  mon  =  5 
julian  =  120 
case  mon  =  6 
julian  =  150 
case  mon  =  7 
julian  =  181 
case  mon  -  8 
julian  =  212 
case  mon  =  9 
julian  =  243 
case  mon  =  10 
julian  =  273 
case  mon  =  11 
julian  =  304 
case  mon  =  12 
julian  =  334 
endcase 

julian  =  julian  +  day(today) 

if  int(year( today)/4)  x  4  =  year(today)  .and.  month(today)  >  2 
julian  =  julian  +  1 
endif 
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X  X 
X  Module  Name i  GET_PRI . PRG  x 
x  x 
X  Author:  Tom  Trotter  x 


Purpose:  This  module  presents  the  user  with  a  menu  for  the  selection 

of  an  order  priority.  If  the  user  selects  pri  "A"  he  is 
warned  that  it  requires  approval  by  the  NPS  superintendent. 
Other  memory  variables  are  assigned  values  for  document 
generation  based  upon  the  user's  selection. 


This  module  is  called  by: 


FORM. ORD. PRG 
0PN_0RDR . PRG 
PUB_0RD . PRG 
STK.ORDR.PRG 
XP0R_0RD. PRG 


This  module  calls:  N  /  A 
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public  pri 
ok  =  '  ' 
okl  =  *  * 
pri  =  'C* 
do  while  .T. 

I  4?30  SAY  "ORDER  PRIORITY" 

3  6,12  SAY  "A  -  Requirement  is  immediate  and  without  the  material" 

3  7,16  SAY  "required,  the  activity  is  unable  to  perform  one" 

3  8,16  SAY  "or  more  of  its  primary  missions." 

3  9,17  SAY  "(Note:  Requires  NPS  Superintendent  approval)" 

3  11,12  SAY  "B  -  Requirement  is  immediate  or  it  is  known  that  such" 

a  12,16  SAY  "a  requirement  will  occur  in  the  immeidate  future." 

a  14,12  SAY  "C  -  Routine  requirement." 

3  17,19  SAY  "Select  appropriate  order  priority:" 

a  17,55  GET  pri  picture  "3!" 

read 

set  color  to  Smscolor 
3  19,30  SAY  "Correct  (Y/N)?" 

a  19,46  GET  ok  picture  "3!" 

set  color  to  Sccolor 
read 


if  ok  =  'Y' 

.and.  pri  <> 

okl  =  'Y' 

endif 

if  ok  =  ' Y' 

.and.  pri  = 

clear 

3  7,34  SAY  "NOTICE" 


3  8,31  SAY  " - " 

a  10,10  SAY  "A  priority  code  of  °A'  requires  NPS  Superintendent  approval." 
set  color  to  Smscolor 

3  14,18  SAY  "Have  you  obtained  approval  (Y/N)?" 

3  14,53  GET  okl  picture  "3!" 
set  color  to  &ccolor 
read 
endif 

if  ok  =  'Y'  .and.  okl  =  ’Y* 
public  ms_code, priority 
good  =  . F . 
do  case 

case  pri  -  'A' 
ms_code  =  'W' 
priority  =  '08* 
good  -  ,T. 
case  pri  =  'B' 
ms_code  =  • T' 
priority  =  '10' 
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good  =  . 
case  pri  = 
ms_code  = 
priority 
good  =  .T 
endcase 
if  good 
return 
endif 
endif 
enddo 


•C* 

•T* 

=  '15» 
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X  X 
X  Module  Name:  GET_RDD.PRG  X 
x  x 
X  Author:  Tom  Trotter  x 
x  x 
x  Purpose:  This  module  queries  the  user  for  a  "required  delivery  date."  X 
X  It  will  accept  RDD  values  from  1  to  366.  If  the  user  opts  x 
X  to  specify  an  RDD,  RDD_YES  will  be  given  a  value  of  .  T.,  and  x 
X  the  memory  variable  RDD  will  be  assigned  a  value  (1-366).  x 
X  x 
X  This  module  is  called  by:  FORM_ORD.PRG  x 
X  OPN  ORDR.PRG  x 
X  PUBlORD.PRG  x 
X  STK_0RDR . PRG  x 
X  XP0R_0RD . PRG  x 
x  x 
X  This  module  calls:  N  /  A  x 
x  x 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


public  rdd_yes,rdd 
rdd  =  1 
ans  =  '  ' 
do  while  .T. 
rdd_yes  -  . F . 
clear 

3  6,24  SAY  "REQUIRED  DELIVERY  DATE  (RDD)" 

3  8,16  SAY  "This  is  an  optional  3  digit  Julian  date  when  the" 
3  9,16  SAY  "material  or  service  is  required.  It  is  used  to" 

3  10,16  SAY  "assist  in  the  placement  of  the  order." 
set  color  to  Smscolor 

3  12,22  SAY  "Desire  to  spe  fy  an  RDD  (Y/N):" 

3  12,55  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  =  *Y* 
set  scoreboard  on 
rdd_yes  -  . T . 
ok  =  '  • 

3  14,30  SAY  "Enter  RDD:" 

3  14,42  GET  rdd  picture  "••#"  range  1,366 
read 

set  scoreboard  off 

3  14,42  SAY  rdd  picture  "#*#" 

set  color  to  8mscolor 

3  16,30  SAY  "RDD  Correct  (Y/N):n 

3  16,49  GET  ok 

set  color  to  8ccolor 

read 

if  upper(ok)  =  *Y' 
return 
endi  f 
else 

return 

endif 

enddo 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X  X 
X  Module  Name:  IN_P0N0.PRG  x 
X  X 
X  Author:  Tom  Trotter  x 
X  x 
x  Purpose:  This  module  permits  the  user  to  write  a  purchase  order  * 
X  number  into  the  POND  field  of  the  ITEM.dbf.  This  cannot  x 
X  be  done  at  the  time  the  requisition  is  originated,  x 
X  because  the  PONO  is  not  then  known.  x 
x  x 
X  This  module  is  called  by:  MAIN.PRG  x 
X  x 
X  This  module  calls:  N  /  A  x 
x  x 
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ans  =  "Y* 
clear 

9  6,23  SAY  "INPUT  PURCHASE  ORDER  NUMBER  (P0§)" 

3  7,23  SAY  " - " 

3  9,11  SAY  "Once  a  POf  is  received  from  supply,  this  program  permits" 

3  10,11  SAY  "entry  of  the  P0#  for  each  item  ordered.  Since  not  all" 

3  11,11  SAY  "items  on  the  original  requisition  may  have  been  ordered" 

3  12,11  SAY  "by  supply  on  the  same  purchase  order,  you  are  requested" 

3  13,11  SAY  "to  separately  confirm  each  item  on  the  purchase  order." 
set  color  to  Smscolor 
3  16,30  SAY  "Continue  (Y/N)?" 

3  16,47  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  <>  *Y' 
return 
endi  f 
ans  =  '  ' 
do  while  .T. 
clear 

key  =  t  i 

3  1,33  SAY  "ENTER  DATA" 

3  p  u  cay  n _ n 

a  3! 22  SAY  "Requisition  t  :" 
a  3,39  GET  key  picture  "atMtttt*" 
a  4,26  SAY  "(Blank  ends  process)" 
read 

if  key  =  '  ' 

return 
endif 

tempid  =  '  ' 

a  6,22  SAY  "Purchase  Order 

a  6,41  GET  tempid  picture  "3t<*»t*t»" 

set  color  to  Smscolor 

3  8,27  SAY  "Correct  (Y/N)?" 

a  8,43  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  -  *Y* 
select  D 
use 

use  8item  index  8reqno_i , 8pono_i 
find  8key 

i f  eof ( )  . or .  bof  (  ) 

3  8,0  clear 

a  10,29  SAY  "REQUISITION  NOT  IN  FILE" 

3  12,14  SAY  "Please  double  check  the  requisition  f  and  try  again." 
set  color  to  8mscolor 
wait  Swmsg 
set  color  to  &ccolor 
else 

do  while  D->reqno  =  key  .and.  .not.  eof (  ) 
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clear 

3  7,18  SAY  "Requisition  #:" 

3  7,34  SAY  D->reqno 
3  9,18  SAY  "Item:" 

3  9,25  SAY  D->descrip 
3  11,18  SAY  "Quantity:" 

3  11,29  SAY  D->quant 
3  13,18  SAY  "Unit  Price:" 

3  13,31  SAY  D->uprice 
set  color  to  Smscolor 

3  18,14  SAY  "Is  this  item  on  purchase  #" 
3  18,42  SAY  tempid 
3  18,53  SAY  "(Y/N)?" 

3  18,61  GET  ans2 
set  color  to  &ccolor 
read 

if  upper(ans2)  =  *Y' 

replace  pono  with  M->tempid 
endif 
skip 
enddo 
endif 
endif 
enddo 
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X  X 
X  Module  Name!  IN_RCVD.PRG  x 
X  X 
X  Author:  Tom  Trotter  * 
x  x 
X  Purpose:  This  module  permits  notation  of  receipt  of  items  in  the  * 
X  RCVD  field  in  the  ITEM.dbf.  The  item  may  be  * 
X  specified  by  requisition  t  (REQNO)  or  purchase  order  #  x 
X  (PONO)  » 
X  X 
X  This  module  is  called  by:  MAIN.PRG  * 
X  x 
X  This  module  calls:  N  /  A  * 
X  x 
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ans  =  'Y* 
clear 

9  3,30  SAY  "INPUT  RECEIPT  STATUS" 

9  4,30  SAY  " - " 

3  6,16  SAY  "You  will  be  given  the  opportunity  to  indicate  if" 

9  7,16  SAY  "specific  items,  currently  not  marked  as  received," 
3  8,16  SAY  "have  now  been  received.  Items  reviewed  will  be" 

3  9,16  SAY  "grouper!  by  requisition  number  or  purchase  order" 

3  10,16  SAY  "number  at  your  option." 
set  color  to  8mscolor 
3  12,30  SAY  "Continue  CY/N)?" 

3  12,47  GET  ans 

set  color  to  Sccolor 

read 

if  upper(ans)  <>  *Y* 
return 
endif 

do  while  .T. 
clear 

set  scoreboard  on 

3  7,22  SAY  "PREPARING  TO  MARK  ITEMS  RECEIVED" 


ansi  =  1 

3  16,32  SAY  "Select:" 

3  16,41  GET  ansi  picture  "f"  range  1,3 

3  17,22  SAY  " - " 

3  18,22  SAY  "[  1.  Show  by  requisition  t  1" 

3  19,22  SAY  "C  2.  Show  by  purchase  order  f  1" 

3  20,22  SAY  "[  3.  Return  to  main  menu  ]" 

a  say  " - " 


read 

set  scoreboard  off 
do  case 

case  ansi  =  1 

kind  =  "Requisition  #  " 

select  D 

use 

use  8item  index  &reqno_i 
field  =  "D->reqno" 
case  ansi  =  2 

kind  =  "Purchase  Order  •" 

select  D 

use 

use  8item  index  &pono_i 
field  =  "D->pono" 
case  ansi  -  3 
return 
endcase 
ans2  =  'Y* 
key  =  •  ' 

clear 

3  9,15  SAY  "Enter" 

3  9,22  SAY  kind 
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3  9,38  SAY  "i" 

3  9,41  GET  key  picture  "3ttfitt*i" 

3  11,15  SAY  "Note  -  Blank  ends  process" 
read 

if  key  =  '  * 

return  to  master 
endif 

set  color  to  Smscolor 
3  14,28  SAY  "Correct  (Y/N)?" 

3  14,44  GET  ans2 
set  color  to  &ccolor 
read 

if  upper(ans2)  =  'Y' 
find  Skey 

if  eof ( )  .or.  bof  (  ) 

3  14,0  clear 

3  14,24  SAY  kind 

3  14,40  SAY  "  not  on  file." 

3  16,14  SAY  "Please  double  check  the  " 

3  16,38  SAY  kind 

3  16,54  SAY  "  and  try  again." 

set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
clear 
else 

counter  =  0 

do  while  Sfield  =  key  .and.  .not.  eof C ) 
if  .not.  rcvd 

counter  =  counter  +  1 

ans3  =  '  ' 

clear 

3  3,18  SAY  "The  following  item  shown  as  not  received" 
3  7,11  SAY  "Requisition  is" 

3  7,27  SAY  reqno 

3  9,11  SAY  "Purchase  Ord  #:" 

3  9,28  SAY  pono 

3  11,11  SAY  "Items" 

3  11,18  SAY  descrip 
3  13,11  SAY  "Quantity:" 
a  13,22  SAY  quant 
3  13,39  SAY  "Unit  Price:  $" 
a  13,53  SAY  uprice 
set  color  to  Smscolor 

3  19,21  SAY  "Has  this  item  been  received  (Y/N)?" 
a  19,56  GET  ans3 
set  color  to  Sccolor 
read 

if  upper(ans3)  =  'Y' 
replace  rcvd  with  .T. 
endif 
endif 
skip 
enddo 

if  counter  =  0 
clear 

if  ansi  =  1 

3  12,18  SAY  "All  items  for  requisition  #" 

3  12,47  SAY  Skey 
else 

3  12,16  SAY  "All  items  for  purchase  order  #" 
a  12,47  SAY  Skey 
endif 

3  14,18  SAY  "have  been  previously  marked  as  received." 
set  color  to  Smscolor 
wait  Swmsg 
set  color  to  Sccolor 
endif 
endif 
endi  f 
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X  X 
X  Module  Name:  MAIN . PRG  X 
x  x 
X  Author:  Tom  Trotter  * 
x  x 
X  Purpose:  Since  this  module  is  the  first  to  be  invoked,  it  is  refered  x 
X  to  in  dBASE  III  as  the  master  module.  It  sets  up  the  X 
X  initialization  of  key  memory  variables  and  presents  the  X 
x  main  menu  for  program  selection.  x 
x  x 
X  This  module  is  called  by:  N  /  A  x 
x  x 
X  This  module  calls:  HELCOME.PRG  X 
x  CONFIG. PRG  x 
X  GET_DATE . PRG  x 
x  NEW_ORDR . PRG  x 
X  IN_P0N0 . PRG  X 
X  IN_RCVD . PRG  x 
X  SHW_NRI . PRG  X 
x  DISP_REQ . PRG  x 
x  CHG  PRIC.PRG  x 
x  NEW~SUPL . PRG  x 
X  newIacnt.prg  x 
x  QUIT. PRG  * 
x  x 
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set  help  off 
set  talk  off 
set  delete  on 
set  safety  off 
set  console  on 
set  escape  off 
do  welcome 
do  config 
do  get_date 
do  while  .T. 
clear  all 

public  today, julian.wmsg 

wmsg  =  ' "  ; 

Press  any  key  to  continue..."' 
public  sup,sname_s,supno_s,  template, tempord 

public  item, reqno_i , pono_i , req, reqno_r , accno_r ,accnt , aname_a ,accno_a 

restore  from  date.var  additive 

public  c_dept , c_bldg, c_room, c_phone 

restore  from  config. var  additive 

sup  =  c_sdrv  +  "sup" 

sname_s  =  c_sdrv  +  "sname_s" 

supno_s  =  c_sdrv  +  "supno_s" 

template  =  c_adrv  +  "template" 

tempord  =  c_adrv  +  "tempord . dbf" 

item  =  c_adrv  +  "item" 

reqno_i  =  c_adrv  +  "reqno_i" 

pono_i  =  c_adrv  +  "pono_i" 

req  =  c_adrv  +  "req" 

reqno_r  =  c_adrv  +  "reqno_r" 

accno_r  =  c_adrv  +  "accno_r" 

accnt  =  c_adrv  +  "accnt" 

aname_a  =  c_adrv  +  "aname_a" 

accno_a  =  c_adrv  +  "accno_a" 

fy_id  =  c_adrv  +  "fy.id" 

public  fy 

restore  from  &fy_id  additive 
public  ccolor.mscolor, errcolor 
if  c_clrmon 

store  "GR+/B.W+/  ,B+"  to  ccolor 
store  "GR+/  ,GR+/  "  to  mscolor 
store  "R+"  to  errcolor 
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else 

store  "W+/  "  to  ccolor 
store  "W+/  "  to  mscolor 
store  "W+/  "  to  errcolor 
endif 

set  color  to  Sccolor 
choice  =  0 
set  scoreboard  on 
clear 

3  3,10  SAY  "================= 


3  4,10  SAY  "= 

3  5,10  SAY  "=  SUPPLY  REQUISITION  DATABASE 

3  6,10  SAY  "= 

3  7,10  SAY  »================================================== 

3  8,10  SAY  "= 

3  9,10  SAY  "=  0.  Exit 

3  10,10  SAY  "=  1.  Place  an  order 

3  11,10  SAY  n=  2.  Update  files  with  purchase  order  t 

3  12,10  SAY  "=  3.  Mark  items  received 

3  13,10  SAY  "=  4.  List  items  not  yet  received 

3  14,10  SAY  "=  5.  Display  a  specific  requisition 

3  15,10  SAY  "=  6.  Change  an  item  price 

3  16,10  SAY  "=  7.  Enter  a  new  supplier 

3  17,10  SAY  "=  8.  Create  a  new  account 

3  18,10  SAY  "= 

3  19,10  SAY  "==================Your  choice  >  <================ 


319,41  GET  choice  picture  range  0,8 
read 

set  scoreboard  off 
do  case 


case 

choice  = 

0 

do 

quit 

case 

choice  = 

1 

do 

new_ordr 

case 

choice  = 

2 

do 

in_pono 

case 

choice  = 

3 

do 

in_rcvd 

case 

choice  = 

4 

do 

shw_nri 

case 

choice  - 

5 

do 

disp_req 

case 

choice  = 

6 

do 

chg_pric 

case 

choice  = 

7 

do 

new_supl 

case 

choice  = 

8 

do 

new_acnt 

endcase 

enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 
X  Module  Namet  NEW  ACNT.PRG  X 
x  x 
x  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  allows  the  user  to  set  up  a  new  account  by  x 
X  appending  a  blank  record  to  the  ACCNT.dbf  and  filling  x 
x  in  all  fields.  x 


This  module  is  called  by: 


This  module  calls:  N  /  A 


MAIN . PRG 
SEL_ACNT 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

ans  -  •  • 

do  while  ans  <>  *Y* 

9  3,28  SAY  "CREATE  A  NEW  ACCOUNT" 

9  4,28  SAY  " - " 

9  6,14  SAY  "In  order  to  enter  a  new  account  you  must  have" 

9  7,14  SAY  "the  following  information  available  at  this  time:" 

9  9,17  SAY  "Account  Name" 

9  10,17  SAY  "Account  >  (assigned  by  NPS  Comptroller)" 

9  11,17  SAY  "Serial  •  range  assigned  to  account" 

9  12,17  SAY  "Is  it  a  research  account?" 

9  14,14  SAY  "WARNING  -  If  you  do  not  understand  any  of  the" 

9  15,24  SAY  "above  items,  seek  assistance  and  do" 

9  lu, 24  SAY  "not  continue  further  at  this  time." 

9  19,27  SAY  "Continue  (Y/N)?" 

9  19,44  GET  ans  picture  "9!" 

read 

if  upper(ans)  =  'N' 
return 
endif 
enddo 
select  A 
use 

use  Saccnt  index  &aname_a , 8accno_a 
append  blank 
do  while  .T. 
ans  -  '  ' 
clear 

9  1,25  SAY  "INPUT  NEW  ACCOUNT" 

9  2,25  SAY  " - " 

9  5,22  SAY  "Account  Name:" 

9  5,37  GET  aname  picture  "9!" 

9  7,22  SAY  "Account  Number:" 

9  7,39  GET  accno  picture  "9!" 

9  9,22  SAY  "Code." 

9  9,29  GET  code  picture  "9!" 

9  11,22  SAY  "Research  Account  (T/F):" 

9  11,47  GET  research  picture  "L " 

9  13,22  SAY  "Requisition  Serial  #  Range  -  From:" 

9  13,59  GET  loserno  picture  "9999" 

9  14,52  SAY  "To:" 

9  14,59  GET  hiserno  picture  "9999" 

9  15,22  SAY  "Last  Serial  «  Used:" 

9  15,43  GET  lastused  picture  "fill" 

9  16,22  SAY  "(leave  blank  if  account  never  used  yet)" 

read 

if  lastused  =  '  ' 

replace  lastused  with  loserno 
endi  f 

9  19,27  SAY  "Correct  (Y/N)?" 

9  19,43  GET  ans 

read 


me 


if  upper(ans)  =  'Y* 
return 
endif 
enddo 
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X  X 

X  Module  Name:  NEW_0RDR . PRG  X 

x  x 

*  Author:  Tom  Trotter  X 

x  x 

X  Purpose:  This  module  serves  as  the  menu  driver  for  the  activities  X 

X  required  in  the  generation  of  new  orders.  It  assigns  a  X 

X  value  to  the  public  memory  variable  TYPEORDR  based  upon  x 

x  the  user's  selection.  x 

x  x 

X  This  module  is  called  by:  MAIN. PRG  x 

x  x 

X  This  module  calls:  CALC_REQ.PRG  X 

x  F0RM_0RD . PRG  x 

x  0PN_0RD . PRG  x 

x  PUB_0RD . PRG  x 

x  RSS_0RD . PRG  x 

X  SEl  ACNT.PRG  X 

x  STK~0RD. PRG  x 

X  XPOR_ORD.PRG  x 

x  x 
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do  while  .T. 
order  =  7 
clear 

set  scoreboard  on 
3  3,29  SAY  "PLACE  AN  ORDER" 

a  5,10  SAY  "The  purpose  of  this  program  is  to  generate  the  appropri" 

3  5,65  SAY  "ate" 

3  6,10  SAY  "supply  forms  CDD  1348-6  S/or  SF  36)  to  place  an  order." 

3  9,24  SAY  "Select  the  type  of  order" 

3  11,10  SAY  "1.  Open  Purchase" 

3  12,10  SAY  "2.  Standard  stock  items  from  NPS  RSS,  NSC  Oakland,  or  GSA" 
a  13,10  SAY  "3.  Standard  forms  from  NSC  Oakland" 
a  14,10  SAY  "4.  Publications  from  NAVPUBFORMCEN  Phil" 
a  15,10  SAY  "5.  $$  Reimbursement  to  NPS  Ready  Supply  Store" 

3  16,10  SAY  "6.  Transportation  of  material  (e.g.  Federal  Express)" 

3  17,10  SAY  "7.  Return  to  main  menu" 
a  20,26  SAY  "Your  order:" 

3  20,41  GET  order  picture  "•"  range  1,7 
read 

set  scoreboard  off 
public  typeordr, service 
service  =  substrC fy , 2, 1 ) 
typeordr  =  '  ' 

if  order  <>  6  .and.  order  <>  7 
do  sel_acnt 
do  calc_req 
endi  f 
do  case 

case  order  =  1 

typeordr  =  'OPEN' 
do  opn_ordr 
case  order  =  2 

typeordr  =  'STOCK' 
do  stk_ordr 
case  order  -  3 

typeordr  =  'FORM' 
do  form_ord 
case  order  =  4 
typeordr  =  'PUB' 
do  pub_ord 
case  order  =  5 

typeordr  =  'RSS$' 
do  rss_ord 
case  order  =  6 

typeordr  =  'XP0RT' 
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do  sel_acnt 
do  calc_req 
do  xpor_ord 
case  order  =  7 
return  to  master 
endcase 
enddo 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 
X  Module  Name:  NEW_SUPL.PRG  * 
X  X 
X  Author:  Tom  Trotter  X 
x  x 
x  Purpose:  This  module  allows  the  user  to  enter  a  new  supplier  by  x 
x  appending  a  blank  record  to  the  SUP.dbf  and  filling  in  x 
X  all  fields.  X 
x  x 
X  This  module  is  called  by:  MAIN.PRG  X 
X  SEL_SUPL . PRG  X 
x  X 
x  This  module  calls:  N  /  A  X 
x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


a  ns  =  '  * 

do  while  ans  <>  *Y* 
clear 

a  A, 26  SAY  "INPUT  A  NEW  SUPPLIER" 
a  5.26  SAY  " - " 

3  7,12  SAY  "In  order  to  input  a  new  supplier,  you  must  have  the" 

3  8,12  SAY  "following  information  available  at  this  time:" 
a  10,29  SAY  "Supplier  Name" 

a  11,29  SAY  "Address" 

a  12,29  SAY  "Phone  *" 

3  14,12  SAY  "The  phone  number  is  mandatory.  Do  not  proceed  unless' 

3  15,12  SAY  "you  are  ready  to  enter  the  above  information." 

a  18,25  SAY  "Continue  CY/N)  ?" 
a  18,43  GET  ans  picture  "3!" 
read 

if  ans  =  'N' 
return 
endif 
enddo 
select  B 
use 

use  &sup  index  $supno_s, 8sname_s 
append  blank 
do  while  .T. 
ans  =  •  * 
clear 

3  3,27  SAY  "INPUT  NEW  SUPPLIER" 

3  4,27  SAY  " - " 

3  6,15  SAY  "Name:" 

3  6,23  GET  sname 

3  8,15  SAY  "Address:" 

a  8,25  GET  addr 

a  10,15  SAY  "City:" 

3  10,22  GET  city 
3  10,38  SAY  "State:" 
a  10,46  GET  state  picture  "3!" 
a  10,52  SAY  "Zip:" 
a  10,58  GET  zip 
3  12,15  SAY  "Phone:  (  )" 

a  12.23  GET  areacode  picture  "3##f" 
a  12.28  GET  fone  picture  ”3###-##!#" 

3  14,15  SAY  "Note  “  Phone  #  is  mandatory" 
read 

a  16,26  SAY  "Is  this  correct?" 
a  16,44  GET  ans  picture  "3!" 
read 

tempid  =  substrl fone, 4 ) 
if  val(tempid)  >  9970 
tempid  =  '0000' 
endi  f 

new  -  recno( ) 
if  ans  =  'Y' 


tempi d  =  strC val ( tempi d)  +  1/4) 
go  top 

find  Stempid 
if  eof  ()  .or.  bof  () 
go  new 

replace  supno  with  tempid 
3  14/0  clear 

3  16/24  SAY  "Assigned  Supplier  t 
a  16,46  SAY  supno 
wait  Swmsg 
return 
endif 
endif 
enddo 
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X  X 

*  Module  Name:  0PN_0RDR.PRG  x 

X  X 

*  Author:  Tom  Trotter  X 

x  x 

*  Purpose:  This  module  coordinates  the  activities  necessary  to  make  an  x 

X  open  purchase.  It  invokes  several  subordinate  modules  to  x 

X  gather  various  user  inputs.  If  only  one  item  is  being  ordered  X 

X  and  the  description  of  that  item  will  fit  in  the  space  x 

X  allowed  on  a  DD-1348  (  <  23  characters),  then  a  DD-1348  will  x 

*  be  generated.  If  more  than  one  item  is  being  ordered,  or  if  * 

X  the  item's  description  is  lengthy,  a  SF-36  will  be  prepared  X 

X  in  addition  to  a  DD-1348.  X 

x  x 

X  This  module  is  called  by:  MAIN.PRG  x 

x  x 

x  This  module  calls:  SEL_SUPL . PRG  x 

X  GET_RDD . PRG  X 

X  GET_PRI . PRG  X 

X  GET_CAT . PRG  X 

X  BUY2_ITM . PRG  x 

X  PRTSF36 . PRG  x 

x  PRT1 348o . PRG  x 

x  SUP  MEMO. PRG  x 

x  FILE_REQ . PRG  x 

x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


a ns  =  '  • 
clear 

9  3,27  SAY  "OPEN  PURCHASE  REQUISITION" 

3  4,27  SAY  " - " 

3  6,12  SAY  "This  program  prepares  the  necessary  documents  to  execute" 

a  7,12  SAY  "an  open  purchase  request.  A  DOD  1348  (6  part)  will  always" 

a  8,12  SAY  "be  produced,  and  if  the  item  description  is  too  long" 

3  9,12  SAY  "(greater  than  22  characters),  or  if  there  is  more  than" 

3  10,12  SAY  "one  item  being  ordered,  a  SF  36  will  also  be  prepared." 

3  11,12  SAY  "If  the  total  order  value  exceeds  $1,000.,  a  memorandum" 

3  12,12  SAY  "will  be  prepared  listing  at  least  2  alternative  sources," 
3  13,12  SAY  "unless  this  procurement  request  is  being  accompanied  by" 
a  14,12  SAY  "a  sole-source  justification.  A  maximum  of  10  separate" 

3  15,12  SAY  "line  items  may  be  ordered  on  a  single  requisition." 

a  17,30  SAY  "Continue  (Y/N)?" 

a  17,47  GET  ans 

read 

if  upper(ans)  <>  'Y' 
return 
endif 

do  sel_supl 
do  get_rdd 
do  get_pri 
do  get_cat 
public  counter 
counter  =  1 
do  buy2_itm 

public  docid, signal , fund, sf36 

docid  =  'A0E' 

signal  =  'A' 

fund  =  * 2S ' 

select  E 

use  Btempord 

go  bottom 

if  recnot )  =  1  .and.  len( trim( E->descrip) )  <  23  .and.  E->descrip2  -  •  * 
sf 36  =  .F. 
else 

sf 36  =  . T . 
do  prtsf36 
endi  f 
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do  prtl348o 
do  file_req 
if  totval  >  999.99 
do  sup_memo 
endif 
select  E 
use 

erase  Stempord 
return  to  master 
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X  X 

*  Module  Name:  PRNT_SMO.PRG  x 
X  X 
X  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  prepares  a  supplemental  memo  to  NPS  Supply  X 
X  memo  to  accompany  an  open  purchase  requisition  if  the  total  x 
x  value  of  all  items  on  the  requisition  exceeds  §1,000.  The  x 
x  purpose  of  the  memo  is  to  offer  2  alternative  sources  for  x 
x  the  requested  material  as  required  by  Naval  Supply  regulations,  x 
x  except  in  the  case  of  orders  accompanied  by  a  sole  source  x 

*  justification.  x 
X  x 
x  This  module  is  called  by:  SUP_MEMO.PRG  x 
x  x 
x  This  module  calls:  N  /  A  x 
x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


3  1,7  SAY  "From:" 

3  1,14  SAY  c_dept 
3  1,18  SAY  "Department" 

3  1,56  SAY  today 
3  3,7  SAY  "To:  NPS  Supply" 

3  5,7  SAY  "Subj :  Additional  sources  for  requisition  #" 

3  5,50  SAY  reqno 

a  7,7  SAY  "1.  Due  to  the  high  value  of  subject  requisition,  the  f" 
3  7,62  SAY  "ol lowing" 

3  8,7  SAY  "multiple  supply  sources  are  submitted:" 
a  12,17  SAY  snamel 
3  12,45  SAY  "Phone:" 

3  12,53  SAY  areacodel 
a  12,57  SAY  fonel 
3  13,17  SAY  addrl 
a  14,17  SAY  cityl 
3  14,37  SAY  statel 
a  14,44  SAY  zipl 
3  17,17  SAY  sname2 
a  17,45  SAY  "Phone:" 
a  17,53  SAY  areacode2 
a  17,57  SAY  f one2 
a  18,17  SAY  addr2 
3  19,17  SAY  city2 
a  19,37  SAY  state2 
3  19,44  SAY  zip2 
3  23,17  SAY  sname3 
3  23,45  SAY  "Phone:" 

3  23,53  SAY  areacode3 
a  23,57  SAY  f one3 
a  24,17  SAY  addr3 
a  25,17  SAY  city3 
3  25,37  SAY  state3 
a  25,44  SAY  ziP3 

3  29,7  SAY  "2.  Department  points  of  contact  for  this  request  are:" 
3  31,23  SAY  poc 1 
a  31,48  SAY  ext  1 
3  33,23  SAY  poc2 
3  33,48  SAY  ext2 
3  34,1  SAY  chr( 12) 
set  device  to  screen 
return 
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X  X 
*  Module  Name:  PRTSF36 . PRG  x 
x  x 
X  Author:  Tom  Trotter  x 
x  x 
x  Purpose:  This  module  contains  loop  which  will  read  one  item  at  a  time  x 
X  from  the  TEMPORD.dbf  and  generate  an  SF-36.  The  TEMPORD.dbf  x 
X  is  used  as  the  information  source  because  it  contains  the  X 
X  fields  of  DESCRIP2  and  DESCRIP3  which  are  not  permanently  X 
X  filed  in  the  ITEM.dbf.  This  allows  a  fuller  description  to  x 
X  be  used  in  the  generation  of  the  documents,  yet  provides  for  x 
X  a  more  economical  filing  structure  for  long  term  files.  Once  * 
X  the  user  states  that  an  acceptable  SF-36  has  been  generated,  X 
x  the  TEMPORD.dbf  is  erased.  This  module  will  produce  an  SF-36  x 
X  containing  from  1  to  12  line  items.  x 
x  x 
X  This  module  is  called  by:  0PN_0RDR.PRG  * 
x  x 
x  This  module  calls:  WARN_PRT . PRG  x 
x  x 
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do  warn_prt 
ans  =  '  ' 

do  while  ans  <>  'N' 
clear 

9  10,26  SAY  "LOAD  SF-36  INTO  PRINTER" 

9  12,37  SAY  "&" 

3  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  '  ' 
wait  '  ' 

reql  =  substrC reqno, 1 , 4) 

req2  =  substr(reqno,5,4) 

ref  =  "N62271/"  +  reql  +  '/'  +  req2 

3  1,51  SAY  ref 

a  1,72  SAY  "1  1" 

who  =  trim( B->sname) 

where  =  trim( B->addr )  +  ',  '  +  trim(B->city)  +  ',  •  +  trim! B->state)  ; 

+  1  '  +  (B->zip) 
who  -  who  +  • ,  '  +  where 
3  3,1  SAY  who 
select  E 
go  top 
marker  -  7 
do  while  .not.  eof (  ) 

3  marker, 3  SAY  E->itemno 
a  marker, 8  SAY  E->descrip 
a  marker, 49  SAY  E->quant  picture  "tftit" 
a  marker, 57  SAY  E->unit 

3  marker, 61  SAY  E->uprice  picture  "f###f.##" 
amount  =  E->quant  X  E->uprice 
a  marker, 71  SAY  amount  picture  "•##•#.#!" 
if  descrip2  <>  '  ' 
marker  =  marker  +  1 
a  marker, 8  SAY  E->descrip2 
endi  f 

if  descrip3  <>  '  * 
marker  =  marker  +  1 
3  marker, 8  SAY  E->descrip3 
endif 

marker  =  marker  +  2 
skip 
enddo 

3  marker,  70  SAY  " _ " 

marker  =  marker  +  1 
a  marker , 35  SAY  "TOTAL" 

3  marker, 70  SAY 


a  marker, 71  SAY  totval  picture 
3  16,1  SAY  chr( 13) 
set  device  to  screen 

C  1  63  P 

a  12,21  SAY  "Do  you  want  to  reprint  the  SF-S6T" 
3  12,56  GET  ans  picture  "3!" 
read 
enddo 
return 
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X  X 
*  Module  Names  PRT1348a.PRG  * 
x  x 
x  Author;  Tom  Trotter  * 
x  x 
X  Purposes  This  module  contains  a  loop  which  will  print  memory  variables  X 
X  to  the  appropriate  spaces  on  a  DD-1348.  It  is  designed  to  x 
X  handle  slight  variations  in  format  based  upon  the  value  of  x 
X  TYPEORDR.  X 
x  x 
X  This  module  is  called  by:  STK_ORDR.PRG  X 
X  F0RM_0RD.PRG  x 
X  PUB_ORD.ORG  X 
X  RSS_0RD. PRG  X 
x  x 
X  This  module  calls:  WARN_PRT . PRG  x 
x  x 
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do  warn_prt 
a ns  =  *  ' 

do  while  ans  <>  'N' 

3  10 731  SAY  "LOAD  PRINTER" 

3  12,37  SAY  "&" 

3  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 

a  1,0  SAY  *  ' 

wait  " 

3  1,6  SAY  sendto 
3  1,36  SAY  "C62271 )  NPS," 
dept  =  trim<c_dept)  +  '  Dept, * 

3  1,49  SAY  dept 

ccode  =  'Code  '  +  trim( A->code) 

3  1,59  SAY  ccode 
3  2,36  SAY  "Rm” 

3  2,39  SAY  c_room 
3  2,45  SAY  "Bldg" 

3  2,50  SAY  c_bldg 
3  2,56  SAY  c_phone 
if  typeordr  =  'STOCK' 

3  4,1  SAY  nomenl 
3  5,1  SAY  nomen2 
3  5,25  SAY  docid 
endi  f 

3  5,30  SAY  route 
if  typeordr  =  'RSS$' 

3  5,38  SAY  money 
else 

3  5,34  SAY  ms_code 
snuml  =  subst r ( stknum , 1 , 4 ) 
snum2  =  substrC stknum, 5 , 2 ) 
snum3  =  substr(stknum,7 , 3) 
snum4  =  substr (stknum, 1 0 , 4 ) 

snum  =  snuml  +  '  '  +  snum2  +  '  '  ♦  snum3  +  '  ’  +  snum4 

3  5,37  SAY  snum 

3  5,59  SAY  unt 

3  5,63  SAY  qunt  picture  "ffifl" 

endif 

3  8,1  SAY  "X  62271" 
reql  =  substr( reqno, 1 , 4 ) 
req2  =  substr( reqno, 5, 4) 
req3  =  reql  +  '  '  +  req2 

3  8,11  SAY  req3 
3  8,23  SAY  demand 
3  8,25  SAY  service 
3  8,27  SAY  supadr 
3  8,34  SAY  signal 
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if  typeordr  s  'FORM'  .or.  typeordr  =  *PUB' 

3  8,38  SAY  nomen 1 
endif 

3  8,64  SAY  rmko 
3  8,66  SAY  "2D" 

if  typeordr  =  'FORM*  .or.  typeordr  =  'PUB* 

3  9,38  SAY  nomen2 
endif 

3  12,1  SAY  fund 
3  12,5  SAY  dist 
3  12,9  SAY  "0P4" 

3  12,14  SAY  priority 
if  rdd_yes 

3  12,17  SAY  rdd  picture  "#•#" 
endif 

3  15,4  SAY  "AA" 
do  case 

case  typeordr  =  ' RSS$* 

3  15,49  SAY  uprce  picture  "##♦##.##" 
case  typeordr  =  ’PUB' 

3  15,50  SAY  "N/C" 
otherwise 

3  15,33  SAY  uprce  picture  "tit##.##" 
totval  =  qunt  X  uprce 

3  15,49  SAY  totval  picture  "##,###.##" 
endcase 

3  16,1  SAY  chr( 13) 
set  device  to  screen 
clear 

3  12,20  SAY  "Do  you  want  to  reprint  the  DD-1348 
3  12,56  GET  ans  picture  "3!" 
read 
enddo 
return 
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X  X 
X  Module  Name:  PRT1348o.PRG  * 
x  x 
x  Author:  Tom  Trotter  x 
x  x 
x  Purpose:  This  module  prints  a  DD-1348  for  open  order  purchases.  It  is  x 
x  designed  to  generate  a  DD-1348  which  may  be  accompanied  by  x 
X  an  SF-36,  or  one  which  can  stand  alone,  depending  upon  the  * 
x  value  of  the  logical  variable  SF36 .  * 
X  x 
x  This  module  is  called  by:  0PN_0RDR.PRG  x 
x  X 
x  This  module  calls:  WARN_PRT.PRG  * 
X  x 
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do  warn_prt 
ans  =  '  ' 

do  while  ans  <>  *N' 
clear 

3  10,31  SAY  "LOAD  PRINTER" 

3  12,37  SAY  "8" 

a  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
3  1,0  SAY  *  * 
wait  '  1 

3  1,1  SAY  B->sname 
3  1,36  SAY  "(62271)  NPS," 
dept  =  trim(c_dept)  +  '  Dept,' 

3  1,49  SAY  dept 

ccode  =  'Code  '  +  trim( A->code) 

3  1,59  SAY  ccode 
3  2,1  SAY  where 
3  2,36  SAY  "Rm" 

3  2,39  SAY  c_room 
3  2,45  SAY  "Bldg" 
a  2,50  SAY  c_bldg 
3  2,56  SAY  c_phone 
a  5,25  SAY  docid 
a  5,34  SAY  ms_code 
if  sf 36 

a  5,38  SAY  "SEE  ATTACHED  SF-36" 
else 

3  5,38  SAY  E->descrip 
a  5,59  SAY  E->unit 

3  5,63  SAY  E->quant  picture  "#*###" 
endi  f 

3  8,1  SAY  "X  62271" 
reql  =  substr ( rsqno , 1 , 4 ) 
req2  =  substr ( reqno , 5 , 4 ) 
req3  =  reql  +  '  '  +  req2 

3  8,11  SAY  req3 
3  8,23  SAY  demand 
3  8,25  SAY  service 
3  8,27  SAY  supadr 
3  8,34  SAY  signal 
3  8,64  SAY  rmko 
3  8,66  SAY  "2D" 

3  12,1  SAY  fund 
3  12,5  SAY  dist 
a  12,9  SAY  "0P4" 

3  12,14  SAY  priority 
if  rdd_yes 

a  12,17  SAY  rdd  picture  "###" 
endi  f 

3  15,4  SAY  "AA" 
if  .not.  SF36 

3  15,33  SAY  uprce  picture  "###!#.##" 


endif 

3  15,49  SAY  totval  picture  "it, III.*#" 

3  16,1  SAY  chr ( 13) 
set  device  to  screen 
clear 

3  12,20  SAY  "Do  you  want  to  reprint  the  DD-1348?1 
3  12,56  GET  ans  picture  "3!" 
read 
enddo 
return 
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X  X 

*  Module  Name:  PRT1348x.PRG  X 

x  x 

*  Author:  Tom  Trotter  x 

x  x 

*  Purpose:  This  module  prints  a  DD-1348  for  transportation  requisitions.  x 

*  It  is  formatted  to  include  a  field  showing  to  whom  the  item  x 

x  is  to  be  sent.  X 

X  x 

X  This  module  is  called  by:  XP0R_0RD.PRG  x 

x  x 

X  This  module  calls:  WARN  PRT.PRG  x 

x  x 
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do  warn_prt 

a ns  =  '  • 

do  while  ans  <>  'N' 
clear 

3  10,31  SAY  "LOAD  PRINTER" 

3  12,37  SAY  "&" 

3  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 

set  device  to  print 

3  1,0  SAY  •  * 

wait  1  ' 

select  B 

use 

use  8sup  index  8supno_s 

key  =  M->supno 

find  8key 

sendto  =  B->sname 

3  1,6  SAY  sendto 

3  1,36  SAY  "(62271)  NPS," 

dept  =  trim(c_dept)  +  '  Dept,' 

3  1,49  SAY  dept 

ccode  =  'Code  '  +  trim( A->code) 

3  1,59  SAY  ccode 
3  2,36  SAY  "Rm" 
a  2,39  SAY  c_room 
a  2,45  SAY  "Bldg" 
a  2,50  SAY  c_bldg 
3  2,56  SAY  c  phone 
3  5,25  SAY  docid 
a  5.38  SAY  "Ticket  to:" 

3  5,59  SAY  unt 
3  7,38  SAY  shipto 
3  8,1  SAY  "X  62271" 
reql  =  substr ( reqno , 1 , 4 ) 
req2  =  substr( reqno, 5, 4 ) 
req3  =  reql  +  '  '  +  req2 

a  8,11  SAY  req3 
3  8,23  SAY  demand 
a  8,25  SAY  service 
3  8,27  SAY  supadr 
a  8,34  SAY  signal 
3  8,38  SAY  addrl 
3  8,64  SAY  rmko 
a  8,66  SAY  "2D" 

3  9,38  SAY  addrZ 
3  10,38  SAY  addr3 
3  11,38  SAY  addr4 
a  12,1  SAY  fund 
3  12,9  SAY  "0P4" 
a  12,14  SAY  priority 
a  15,4  SAY  "AA" 

3  15,50  SAY  uprce  picture  "*•!•. I#" 

3  16,1  SAY  chr( 13 ) 
set  device  to  screen 
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X  X 
*  Module  Name:  PUB_ORD.PRG  * 
X  X 
X  Author:  Tom  Trotter  X 
X  x 
X  Purpose:  This  module  coordinates  the  process  of  ordering  forms  * 
X  from  NAVPUBFORMCEN,  Philadelphia,  PA.  x 
x  x 
X  This  module  is  called  by:  NEW_ORDR.PRG  x 
x  x 
X  This  module  calls:  GET_RDD.PRG  X 
x  GET_CAT . PRG  x 
X  GET_PRI . PRG  x 
X  BUY1_ITM . PRG  X 
X  FILE_REQ . PRG  x 
X  FILE_ITM . PRG  x 
x  x 
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a ns  =  '  • 
clear 

3  8,31  SAY  "PUBLICATION  ORDER" 

3  9,31  SAY  " - " 

3  11,13  SAY  "This  program  prepares  the  documents  required  to  order" 
3  12,13  SAY  "publications  from  NAVPUBFORMCEN,  Philadelphia.  " 

3  16,30  SAY  "Continue  (Y/N)?" 

3  16,47  GET  ans 
read 

if  upper(ans)  <>  *Y' 
return 
endif 

public  sendto,supno, route 

sendto  =  '(00288)  NAVPUBFORMCEN  PHILA' 

supno  =  '2222' 

route  =  ' NF2 ' 

do  get_rdd 

do  get_pri 

do  get_cat 

do  buyl_itm 

public  docid, signal , fund 


docid  =  'AOD' 
signal  =  'D' 
if  uprce  =  0 
fund  =  'Y6' 
else 

fund  =  ' 2S ' 
endif 


do  prtl348a 
do  file_req 
do  file_itm 
return  to  master 
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X  X 
X  Module  Name >  QUIT.PRG  * 
x  x 
x  Author:  Norm  Lyons  10/85  * 
*  Modified  by:  Tom  Trotter  12/85  (converted  to  dBASE  III)  x 
X  x 
X  Purpose  :  This  program  terminates  processing  and  returns  x 
X  control  to  the  operating  system.  At  the  end  of  x 
x  each  appropriate  menu,  an  option  to  to  quit  is  x 
X  displayed.  If  the  user  enters  "Q"  to  quit,  the  * 
X  program  ends  and  control  is  returned  to  the  X 
x  operating  system.  x 
x  x 
X  This  module  is  called  by:  MAIN.PRG  X 
x  x 
X  This  module  calls:  N  /  A  x 
x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


a  5,28  SAY  "End  of  Dialog" 

3  7,10  SAY  "If  you  are  using  floppy  disks,  replace  them  in  their" 

3  9,10  SAY  "protective  jackets.  Do  not  touch  the  surface  of" 

3  11,10  SAY  "the  disk  (the  little  oval  opening  at  the  bottom  of  the" 
3  13,10  SAY  "disk) ." 
set  color  to  8mscolor 

a  22,9  SAY  "Press  any  key  to  return  control  to  the  operating  system" 
set  color  to  &ccolor 


V  f  J 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
X  X 
*  Module  Name:  REQ_HDR.PRG  * 
x  x 
x  Author:  Tom  Trotter  * 


Purpose:  This  module  is  used  by  the  various  modules  which  display 

requisitions  to  put  a  common  header  on  the  screen.  It 
has  been  put  into  a  separate  module  in  order  to  avoid 
code  duplication. 


This  module  is  called  by: 


DIS1_REQ . PRG 
DIS2_REQ . PRG 
DIS3_REQ . PRG 


x  This  module  calls:  N  /  A  X 
x  x 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


clear 
a  1,5 
a  1,19 
a  1,51 

a  1,66 

3  2,5 

a  2,16 
a  2,51 
a  2,61 
a  3,21 
a  3,25 

a  3,51 

a  3,57 
a  4,25 
mere 
a  5,25 

a  7,2 
a  7,58 
a  8,i 

a  8,56 
return 


SAY  "Account  Name:" 
SAY  A->aname 
SAY  "Requisition  t: 
SAY  C->reqno 
SAY  "Account  *:" 

SAY  C->accno 
SAY  "Priority:" 

SAY  C->pri_code 
SAY  "To:" 

SAY  B->sname 
SAY  "Date:" 

SAY  C->rdate 
SAY  B->addr 
=  trim( B->city)  +  ', 
SAY  where 

SAY  "  »  ] 

SAY  "Quant  Rcvd  F 

SAY  " - 

SAY  " - 


•+  B->state  + 


’  +  B->zip 


Unit  Cost" 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X  X 
X  Module  Name:  RSS_ORD.PRG  X 
X  X 
X  Author:  Tom  Trotter  * 
X  x 
X  Purpose:  This  module  prepares  a  DD-1348  for  "Money  Value  Only"  as  a  * 
X  method  of  payment  in  response  to  regular  billings  from  the  x 
X  NPS  Ready  Supply  Store  (RSS).  x 
X  X 
X  This  module  is  called  by:  NEW  OROR.PRG  x 
X  x 
X  This  module  calls:  GET_CAT.PRG  x 
X  FILE_REQ . PRG  x 
X  PRT1348a . PRG  x 
X  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


ans  =  '  ' 
clear 

3  8,31  SAY  "$$  REIMBURSEMENT  TO  RSS" 

3  9,31  SAY  " - " 

3  11,13  SAY  'This  program  prepares  a  DD-1348  for  "money  value  only"' 
3  1-2,13  SAY  "as  reimbursement  to  the  NPS  RSS." 

3  16,30  SAY  "Continue  (Y/N)?" 

3  16,47  GET  ans 
read 

if  upper(ans)  <>  'Y* 
return 
endif 

public  dist,uprce 
dist  =  '  ' 

uprce  =  0.00 
ans  =  '  ' 
clear 

while  ans  <>  'Y' 

3  6,32  SAY  "RSS  $$  REIMBURSEMENT" 

3  7,32  SAY  " - " 

3  10,33  SAY  "$$  Amount;  $" 

3  10,46  GET  uprce  picture  "ft*t.ft" 

3  13,29  SAY  "COG  Symbol  on  billing:" 

3  13,53  GET  dist  picture  "3!" 
read 

3  16,32  SAY  "Correct  (Y/N)?" 

3  16,48  GET  ans  picture  "3!" 
read 
enddo 

public  sendto , supno , route , money, priority, rdd_yes, pri_code 
rdd_yes  =  .F. 

sendto  =  ' 203J  READY  SUPPLY  STORES' 

supno  =  '0000' 

route  =  'Z9S' 

priority  =  '15' 

pri_code  =  'C' 

do  get_cat 

money  =  'MONEY  VALUE  ONLY* 

public  signal, fund 

signal  =  'D' 

fund  =  ' 2S ' 

do  prtl348a 

select  D 

use 

use  8item  index  &reqno_i , &pono_i 
append  blank 

replace  descrip  with  M->money 
replace  quant  with  1 
replace  rcvd  with  .T. 
use 

do  file_req 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X  X 

X  Module  Name:  SEL_ACNT . PRG  x 

x  x 

*  Author;  Tom  Trotter  x 

X  x 

*  Purpose:  This  module  allows  the  user  to  access  the  ACCNT.dbf,  * 

*  scrolling  forward  and  backward  until  a  specific  account  * 

*  is  selected  for  use.  If  the  desired  account  is  not  x 

X  already  on  file*  the  user  may  opt  to  create  it  by  invoking  x 

X  NEW  ACNT.PRG  from  within  this  module.  x 


This  module  is  called  by: 


DIS2_REQ . PRG 
DI S3_REQ . PRG 
NEW  ORDR.PRG 
SHW'  NRI  .PRG 


This  module  calls: 


NEW  ACNT.PRG 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


do  while  .T. 
select  A 
choice  =  4 
clear 

set  scoreboard  on 


a 

2,28 

3.22 

4.22 

SAY 

"SELECT 

AN  ACCOUNT" 

a 

^  rl  1 

SAY 

"1 

1  . 

By  Account  Name 

1" 

a 

5,22 

SAY 

"[ 

2. 

By  Account  Number 

]" 

a 

6,22 

SAY 

"[ 

3. 

Enter  New  Account 

1" 

a 

7,22 

SAY 

"[ 

4. 

Return  to  Main  Menu 

]" 

3  8,22  SAY  " - 

3  10,29  SAY  "Your  choice: " 

a  10,43  GET  choice  picture  range  1,4 

read 

set  scoreboard  off 
aname  =  ’  ’ 

public  accno 
accno  =  '  ' 

do  case 

case  choice  =  1 
use 

3  14,27  SAY  "Account  Name:" 

3  14,42  GET  aname 

3  16,27  SAY  "(Blank  aborts  process)" 
read 

if  aname  =  '  * 

return  to  master 
endi  f 

id  =  trim( upper ( aname ) ) 
use  Saccnt  index  &aname_a , &accno_a 
case  choice  =  2 
use 

3  14,27  SAY  "Account  Number:" 

3  14,44  GET  accno 

a  16,27  SAY  "(Blank  aborts  process)" 
read 

if  accno  =  '  ' 

return  to  master 
endi  f 

id  -  trim( upper (accno ) ) 
use  Saccnt  index  &accno_a , 8aname_a 
case  choice  -  3 
do  new_acnt 
case  choice  =  4 
use 

return  to  master 
endcase 


if  choice  <>  3 
find  &id 

if  (eof()  .or.  bof ( ) ) 
use 
clear 

9  5,27  SAY  "ACCOUNT  NOT  FOUND" 

3  7,14  SAY  "If  you  believe  this  account  is  in  the  file,  try" 

3  8,14  SAY  "a  shorter  version  of  either  the  account  name  or" 

3  9,14  SAY  "number  (e.g.  if  you  are  unsure  if  the  account" 

3  10,14  SAY  "number  is  R1234  or  R1235,  look  for  R123  instead), 
set  color  to  &mscolor 
wait  Swmsg 
set  color  to  Sccolor 
endif 
endif 

if  .not.  eof ( ) 
pick  =  4 
ok  =  .F. 

do  while  .not.  ok 
clear 

set  scoreboard  on 
a  3,22  SAY  "Account  Name:" 

3  3,37  SAY  aname 

3  5,22  SAY  "Account  Number:" 

3  5,39  SAY  accno 
3  7,22  SAY  "Code:" 

3  7,29  SAY  code 

3  9,22  SAY  "Research  Account  (T/F):" 

3  9,47  SAY  research 

a  11,22  SAY  "Requisition  Serial  ♦  Range  -  From:" 
a  11,59  SAY  loserno 

3  12,52  SAY  "To:" 

3  12,59  SAY  hiserno 

a  14,27  SAY  "Select  an  action:" 

a  14,46  GET  pick  picture  "#"  range  1,5 


a 

15,22 

SAY 

n _ 

— 

— 

«— 

n 

a 

16 , 22 

SAY 

"c 

i  . 

Use  this  account 

i 

n 

a 

17,22 

SAY 

"C 

2. 

Scroll 

to 

previous  account 

i 

it 

a 

18,22 

SAY 

"i 

3. 

Scroll 

to 

next  account 

] 

it 

a 

19,22 

SAY 

"t 

4. 

Return 

to 

last  menu 

i 

it 

a 

20,22 

SAY 

"[ 

5. 

Return 

to 

main  menu 

i 

•t 

a 

21,22 

SAY 

n _ 

— 

— 

-- 

it 

read 

set  scoreboard  off 
do  case 

case  pick  =  1 

accno  =  A->accno 
return 

case  pick  =  2 
if  .not.  bof C ) 
skip  -1 
endif 

case  pick  =  3 
if  .no,,  eof  ( ) 
skip 
endif 

case  pick  =  4 
ok  =  .T. 
case  pick  =  5 

return  to  master 
endcase 
enddo 
endi  f 


XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X  X 
X  Module  Name!  SEL_SUPL . PRG  X 

X  X 
X  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  allows  the  user  to  access  the  SUPT.dbf,  x 
x  scrolling  forward  and  backward  until  a  specific  supplier  X 
X  is  selected  for  use.  If  the  desired  supplier  is  not  X 
X  already  on  file,  the  user  may  opt  to  enter  it  by  invoking  x 
X  NEW_SUPL.PRG  from  within  this  module.  X 
x  x 
X  This  module  is  called  by:  NEW  ORDR.PRG  X 
X  SUPJ1EM0 . PRG  X 
X  X 
X  This  module  calls:  NEW_SUPL.PRG  x 
x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


do  while  .T. 
select  B 
choice  =  4 
clear 

set  scoreboard  on 
3  2,28  SAY  "SELECT  A  SUPPLIER" 
3  3,22  SAY  " - 


3 

4,22 

SAY 

"[ 

1. 

By  Supplier  Name 

]" 

3 

5,22 

SAY 

"[ 

2. 

By  Supplier  Number 

]" 

3 

6,22 

SAY 

"[ 

3. 

Enter  New  Supplier 

]" 

3 

7,22 

SAY 

"[ 

4. 

Return  to  Main  Menu 

]" 

3 

8,22 

SAY 

ft - 

— 

_ t? 

3  11,29  SAY  "Your  choice:" 

3  11,43  GET  choice  picture  "t"  range  1,4 
read 

set  scoreboard  off 
public  supno 

sname  =  '  * 

supno  =  1  ' 

do  case 

case  choice  =  1 
use 

3  14,27  SAY  "Supplier  Name:" 

3  14,42  GET  sname 

3  16,27  SAY  "(Blank  aborts  process)" 
read 

if  sname  =  •  ' 
return  to  master 
endif 

id  =  trim( upperC sname ) ) 
use  Ssup  index  &sname_s 
case  choice  =  2 
use 

3  14,27  SAY  "Supplier  Number:" 

3  14,44  GET  supno 

3  16,27  SAY  "(Blank  aborts  process)" 
read 

if  supno  =  '  ’ 
return  to  master 
endif 

id  =  trim( upper ( supno ) ) 
use  &sup  index  8supno_s 
case  choice  =  3 
do  new_supl 
case  choice  =  4 
return  to  master 
endcase 

if  choice  <>  3 
find  &id 

if  (eof()  .or.  bof ( ) ) 


use 

3  I? 27  SAY  "SUPPLIER  NOT  FOUND" 

3  7,14  SAY  "If  you  believe  this  supplier  is  in  the  file,  try" 
3  8,14  SAY  "a  shorter  version  of  either  the  supplier  name  or" 
3  9,14  SAY  "number  (e.g.  if  you  are  unsure  if  the  suppl 
3  10,14  SAY  "name  is  Grey  Electric  or  Gray  Electic,  try 
3  11,14  SAY  "looking  for  ’Gr'  instead)." 
set  color  to  Smscolor 
wait  Swmsg 
set  color  to  &ccolor 
endif 
endif 

if  .not.  eof ( ) 
pick  =  4 
ok  =  .  F . 

do  while  .not.  ok 
clear 

set  scoreboard  on 
3  2,29  SAY  "SELECTED  SUPPLIER" 

3  5,25  SAY  sname 
3  6,25  SAY  addr 
3  7,25  SAY  city 
3  7,41  SAY  state 
3  7,48  SAY  zip 
3  9,25  SAY  fone 
3  9,48  SAY  "Supplier 
3  9,61  SAY  supno 


3 

3 

14,27 

14,46 

SAY 

GET 

"Select  an  action:" 
pick  picture  "t"  range  1,5 

3 

16,22 

SAY 

"[ 

1. 

Use  this  supplier 

1" 

3 

17,22 

SAY 

"[ 

2. 

Scroll  to  previous  supplier 

]" 

3 

18,22 

SAY 

”[ 

3. 

Scroll  to  next  supplier 

]" 

3 

19,22 

SAY 

"[ 

4. 

Return  to  last  menu 

1" 

3 

20,22 

SAY 

"[ 

5. 

Return  to  main  menu 

]" 

3  21,22  SAY  " - 

read 

set  scoreboard  off 
do  case 

case  pick  =  1 

supno  -  B->supno 
return 

case  pick  =  2 
if  . not .  bof ( ) 
skip  -1 
endif 

case  pick  =  3 
if  . not .  eof  < ) 
skip 
endif 

case  pick  =  4 
ok  =  .T. 
case  pick  -  5 

return  to  master 
endcase 
enddo 
endif 
enddo 
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X  X 
X  Module  Name:  SHW_NRI . PRG  X 
x  x 
X  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  displays  items  which  are  on  file  in  the  ITEMS. dbf  x 
x  shown  as  not  yet  received  (RCVD  field  =  .  F.).  The  user  may  X 

*  direct  output  to  the  screen  or  printer.  He  has  the  option  of  X 

*  listing  all  items  marked  as  not  received,  or  he  may  limit  the  X 
X  listing  to  items  from  a  specific  account.  This  module  may  be  X 
X  easily  expanded  to  accomodate  screens  based  upon  date  of  X 
X  order.  X 
x  x 
X  This  module  is  called  by:  MAIN. PRG  x 
x  x 
X  This  module  calls:  WARN_PRT.PRG  X 
X  SEL_ACNT . PRG  X 
x  x 


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


ans  -  *  1 

3  7?28  SAY  "LIST  -ITEMS  NOT  RECEIVED" 

3  8,28  SAY  " - " 

3  10,13  SAY  "This  program  generates  a  listing  of  items  ordered  but" 

3  11,13  SAY  "not  yet  received.  The  list  may  be  sent  to  the  screen" 

3  12,13  SAY  "or  printer  at  the  user's  option.  The  search  for  items" 
3  13,13  SAY  "not  received  may  also  be  limited  within  parameters" 

3  14,13  SAY  "provided  by  the  user." 

3  17,29  SAY  "Continue  (Y/N)?" 

3  17,46  GET  ans 

read 

if  upper(ans)  <>  *Y* 
return 
endif 
pick  =  3 
clear 

set  scoreboard  on 
3  5,25  SAY  "Select  Search  Type:" 

3  5,46  GET  pick  picture  "i"  range  1,3 

3  6,12  SAY  " - " 

3  7,12  SAY  "I  1.  No  limits  (show  all  not  received  items)  1" 

3  8,12  SAY  "[  2.  Limit  list  to  specific  account  number  1" 

3  9,12  SAY  "[  3.  Return  to  main  menu  ]" 

3  10,12  SAY  " - " 

read 

if  pick  =  3 
return 
endif 
outpt  =  1 

3  13,29  SAY  "Select  Display:" 

3  13,46  GET  outpt  picture  "•"  range  1,2 

3  14,28  SAY  " - " 

3  15,28  SAY  "[  1.  Screen  3" 

3  16,28  SAY  "I  2.  Printer  3" 

3  17,28  SAY  " - " 

read 

set  scoreboard  off 
counter  =  0 
marker  =  0 
value  =0.00 
totval  =  0.00 
totcnt  =  0 
do  case 

case  pick  =  1 
if  outpt  =  2 
prtout  =  .T. 
do  warn_prt 
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C 1 63 1* 

a  10,31  SAY  "LOAD  PRINTER" 

3  12  37  SAY  "&" 

a  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
a  1,0  SAY  1  ' 
wait  * • 
else 

prtout  =  .F. 
endif 

a  2? 35  SAY  trim( c  dept)  +  •  Dept' 

3  3,21  SAY  "ITEMS  NOT  RECEIVED  AS  OF" 

3  3,47  SAY  today 
3  4,1  SAY  "  *  Item 

3  4,57  SAY  "  P.0.  #  Quantity" 

3  5,1  SAY  " - 

a  5,56  SAY  " - " 

select  D 

use  Sitem  index  &reqno_i 
go  top 

do  while  .not.  eof ( ) 
if  .not.  rcvd 

counter  =  counter  +  1 
•  marker  =  marker  +  1 
value  =  D->quant  *  D->uprice 
totval  =  totval  +  value 
totcnt  =  totcnt  +  D->quant 
a  marker+5,1  SAY  counter  picture  "ti#" 

3  marker+5,6  SAY  D->descrip 
3  marker+5,45  SAY  D->reqno 
3  marker+5,58  SAY  D->pono 

a  marker+5,69  SAY  D->quant  picture  "tit##" 
if  marker  >  14  .and.  .not.  prtout 
marker  =  1 
wait  Swmsg 
3  6,0  clear 
endif 
endif 
skip 
enddo 

if  counter  =  0 

a  10,21  SAY  "ALL  ITEMS  ARE  MARKED  AS  RECEIVED" 
else 

a  marker+8,15  SAY  "Total  items:" 
a  marker+8, 28  SAY  totcnt  picture  "#t#tt" 

3  marker+8 , 45  SAY  "Total  value:  $" 
a  marker+8, 59  SAY  totval  picture 
endif 
if  prtout 

a  marker+8, 70  SAY  chr(12) 
set  device  to  screen 
endif 

case  pick  =  2 
do  sel_acnt 
key  -  A->accno 
if  outpt  =  2 
prtout  =  .T. 
do  warn_prt 

a  10^31  SAY  "LOAD  PRINTER" 

3  12,37  SAY  "8" 

a  14,25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 
set  device  to  print 
a  1,0  SAY  '  ' 
wait  " 
else 

prtout  =  .F. 
endif 
clear 


15  4 


3  1»28  SAY  "For  Account  t:" 

3  1,43  SAY  key 

3  2,21  SAY  "ITEMS  NOT  RECEIVED  AS  OF" 


3  2,47  SAY  today 

3  4,1  SAY  "  *  Item  Req  t  " 

3  4,57  SAY  "  P.0,  t  Quantity" 

3  5,1  SAY  " - - 

3  5,56  SAY  " - " 

select  C 


use  8req  index  &accno_r 
find  Skey 
if  eofO 

3  8,10  SAY  "No  requisitions  found  for  account  names" 
3  8,50  SAY  A->name 
else 

do  while  C->accno  =  key  .and.  .not.  eof  () 
key2  =  C->reqno 
select  D 

use  &item  index  &reqno_i 
find  &key2  ~ 

do  while  D->reqno  =  key2  .and.  .not.  eof ( ) 
if  .not.  rcvd 

counter  =  counter  +  1 
marker  =  marker  +  1 
value  =  D->quant  X  D->uprice 
totval  =  totval  +  value 
totcnt  =  totcnt  +  D->quant 
3  marker+5,1  SAY  counter  picture  "ft#" 

3  marker+5,6  SAY  D->descrip 
3  marker+5,45  SAY  D->reqno 
3  marker+5,58  SAY  D->pono 

3  marker+5,69  SAY  D->quant  picture  "tiff#" 
if  marker  >  14  .and.  .not.  prtout 
marker  =  1 
wait  Smsg 
3  6,0  clear 
endif 
endif 
skip 
enddo 
select  C 
skip 
enddo 

if  counter  =  0 

3  10,21  SAY  "ALL  ITEMS  ARE  MARKED  AS  RECEIVED" 
else 

3  marker+8,15  SAY  "Total  items:" 

3  marker+8,28  SAY  totcnt  picture  "#ttfft" 

3  marker+8,45  SAY  "Total  value:  $" 

3  marker+8,59  SAY  totval  picture  "*, iff, itt . If" 
endif 
endif 
if  prtout 

3  marker+8 , 7 0  SAY  chr(12) 
set  device  to  screen 
else 

wait  &wmsg 
endif 
endcase 
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X  X 
X  Module  Name:  STK_0RDR . PRG  x 
X  X 
X  Author:  Tom  Trotter  * 
X  X 
X  Purpose:  This  module  offers  the  user  a  menu  option  of  ordering  a  x 
X  standard  stock  item  from  either  NPS  RSS ,  NSC  Oakland,  or  x 
X  GSA.  It  subsequently  invokes  various  modules  to  gather  x 
x  the  data  required  for  the  order.  x 
X  x 
X  This  module  is  called  by:  MAIN. PRG  x 
X  x 
X  This  module  calls:  GET_RDD.PRG  x 
X  GET_PRI . PRG  x 
x  GET_CAT.PRG  x 
X  BUY1_ITM . PRG  x 
x  PRT1348a . PRG  x 
X  FILE_ITM. PRG  x 
x  FILE_REQ . PRG  x 
x  x 
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choice  =  4 
clear 

set  scoreboard  on 

3  4,25  SAY  "STANDARD  STOCK  REQUISITION" 

3  6,14  SAY  "This  program  prepares  a  requisition  for  either  a" 

3  7,1'4  SAY  "GSA  or  DOD  standard  stock  item.  If  you  want  to" 

3  8,14  SAY  "order  forms  or  publications,  return  to  the  previous" 
3  9,14  SAY  "menu." 

3  12,21  SAY  "- 
3  13,21  SAY  "I 
3  14,21  SAY  "C 
3  15,21  SAY  "I 
3  16.21  SAY  "C 
3  17,21  SAY  "- 
3  18,29  SAY  "Select:" 

3  18,38  GET  choice  picture  "t"  range  1,4 
read 

set  scoreboard  off 
public  supno.sendto, route 
do  case 

case  choice  =  1 

sendto  =  '203J  Ready  Supply  Stores' 
route  =  'Z9S' 
supno  =  '0000' 
case  choice  =  1 

sendto  =  '(00228)  NSC  Oakland,  CA* 
route  =  'NOZ' 
supno  =  '1111' 
case  choice  =  2 
sendto  =  'GSA' 
route  =  'GSA' 
supno  =  '2222' 
case  choice  -  3 
return 
endcase 
do  get_rdd 
do  get_pri 
do  get_cat 
do  buyl_itm 

public  docid, signal , fund 
docid  =  'A0A' 
signal  =  'D' 
fund  =  "2S" 
do  prtl348a 
do  file_req 


1. 

NPS 

RSS  Order 

1" 

2. 

NSC 

Oakland  Order 

]" 

3. 

GSA 

Order 

]" 

4. 

Return  to  previous  menu 

]" 
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Module  Name: 


SUP  MEMO 


Author:  Tom  Trotter 


Purpose:  This  module  is  conditionally  invoked  if  the  total  value  of 

an  order  exceeds  $999.99.  It  uses  SEL_SUPL.PRG  to  specify 
suppliers  to  include  in  a  supplemental  memo  prepared  to 
accompany  the  requisition.  Three  suppliers  and  2  dept 
points  of  contact  (POC's)  must  be  specified.  After  the 
required  data  is  collected,  it  invokes  PRNT_SMO.PRG  to 
print  the  actual  memo. 

This  module  is  called  by:  0PN_0RDR.PRG 


This  module  calls: 


PRNT_SM0 . PRG 
SEL  SUPL.PRG 
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clear 

9  4,24  SAY  "ADDITIONAL  SUPPLY  SOURCES  MEMO" 

3  5,24  SAY  " - " 

3  7,12  SAY  "Since  the  total  value  of  this  order  exceeds  $1,000.00," 

3  8,12  SAY  "a  memo,  citing  2  additional  supply  sources,  must" 

3  9,12  SAY  "accompany  the  requisition.  Two  points  of  contact" 
a  10,12  SAY  "knowledgeable  about  the  request  requirements  should  also" 

3  11,12  SAY  "shown  on  the  memo." 

a  14,26  SAY  "Press  any  key  to  continue..." 

wait  " 

clear 

select  B 

3  3,11  SAY  "This  requisition  shown  the  following  company  as  the" 

3  4,11  SAY  "primary  supplier." 

3  7,20  SAY  sname 

a  7,47  SAY  areacode 

3  7,57  SAY  fone 
3  8,20  SAY  addr 
a  9,20  SAY  city 
3  9,45  SAY  state 
a  9,52  SAY  zip 

public  snamel , areacodel , fone 1 , addr 1 , cityl , statel , zipl 

snamel  =  B->sname 

areacodel  =  B->areacode 

fonel  =  B->fone 

addrl  =  B->addr 

cityl  =  B->city 

statel  =  B->state 

zipl  =  B->zip 

3  13,11  SAY  "You  will  now  be  requested  to  identify  2  additional" 

3  14,11  SAY  "suppliers." 

a  16,21  SAY  "Press  any  key  to  continue..." 
wait  " 
do  sel_supl 

public  sname2 , areacode2, f one2, addr 2 , ci ty2 , sta te2, zip2 

sname2  =  B->sname 

areacode2  =  B->areacode 

fone2  =  B->fone 

addr2  =  B->addr 

city2  =  B->city 

state2  =  B->state 

zip2  =  B->zip 

clear 

3  12,19  SAY  "Time  to  select  one  more  supplier." 

3  16,21  SAY  "Press  any  key  to  continue..." 
wait  " 
do  sel_supl 

public  sname3,areacode3, fone 3, addr 3, ci ty3, state3, zip3 


mm 
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sname3-  B->sname 
areacode3  -  B->areacode 
fone3  =  B->fone 
addr3  -  B->addr 
city3  =  B->city 
state3  =  B->state 
zip3  =  B->zip 
clear 
ans  =  *  • 

public  pocl , extl , poc2, ext2 
pocl  -  '  • 

poc2  =  '  • 

extl  =  '  ' 

ext2  =  »  ' 

do  while  upper(ans)  <>  'Y' 

a  5,28  SAY  "ENTER  POINTS  OF  CONTACT" 

3  6,28  SAY  " - " 

3  9,18  SAY  "Names" 

3  9,25  GET  pocl 
3  9,48  SAY  "Ext:" 

3  9,54  GET  extl 
a  11,18  SAY  "Name:" 
a  11,25  GET  poc2 
3  11,48  SAY  "Ext:" 

3  11,54  GET  ext2 
3  14,30  SAY  "Correct  (Y/N)?" 
a  14,46  GET  ans 
read 
enddo 

do  warn_prt 
clear 

3  10,31  SAY  "LOAD  PRINTER" 

3  12,37  SAY  "8" 

a  14^25  SAY  "PRESS  ANY  KEY  TO  CONTINUE" 

set  device  to  print 

a  1,1  SAY  '  ' 

wait  ' ' 

do  prnt_smo 

return 
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X  X 
x  Module  Name:  WARNING. PRG  x 
X  X 
X  Author:  Tom  Trotter  X 
x  x 
X  Purpose:  This  module  is  used  by  BUY2_ITM.PRG  to  display  a  screen  x 
X  warning  that  no  item  was  entered  and  the  order  process  x 
x  is  about  to  be  terminated.  x 
x  x 
X  This  module  is  called  by:  BUY2_ITM.PRG  X 
x  x 
X  This  module  calls:  N  /  A  x 
x  x 
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ans  =  '  * 
do  while  .T. 
clear 

9  6,31  SAY  "WARNING  !!" 
a  7,31  SAY  " - " 

3  9,14  SAY  "Since  no  item  was  entered  it  is  assumed  that" 

3  10,14  SAY  "you  desire  to  abort  the  entire  order  process!" 
a  12,22  SAY  "Do  you  want  to  abort  (Y/N)?" 

3  12,51  GET  ans 
read 

if  upper(ans)  =  'Y* 
return  to  master 
else 

goahead  =  . F. 
return 
endif 
enddo 
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X  X 

*  Module  Name:  WARN_PRT . PRG  * 
x  x 
X  Author:  Tom  Trotter  x 
x  x 

*  Purpose:  This  module  displays  a  warning  before  any  output  is  directed  x 
X  to  the  printer.  The  user  is  advised  to  prepare  the  printer  x 
X  or  face  the  consequences.  x 
x  x 
X  This  module  is  called  by:  DIS1_REQ.PRG  x 
X  DIS2  REQ.PRG  X 
x  DIS3~REQ . PRG  x 
X  PRT1 348a . PRG  x 
X  PRT1348o . PRG  x 
X  PRT1348x . PRG  X 
x  PRTSF36 . PRG  X 
x  SHW_NRI . PRG  x 
X  SUP_MEM0 . PRG  x 
x  x 
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do  while  .T. 
ans  =  '  ' 

clear 

9  5,30  SAY  "PREPARE  PRINTER" 

3  6,30  SAY  " - " 

3  8,13  SAY  "Since  output  will  now  be  sent  to  the" 
a  9,13  SAY  "printer,  it  shoul’d  be  connected  and  have  the  power" 

3  10,13  SAY  "turned  on  now." 

3  12,13  SAY  "WARNING  -  Failure  to  prepare  the  printer  may  cause" 
3  13,23  SAY  "the  computer  to  hang  and  possibly  result" 

3  14,23  SAY  "in  loss  of  data." 

3  17,29  SAY  "Continue  (Y/N)?" 

3  17,46  GET  ans 
read 

if  upper(ans)  =  ’N1 
return  to  master 
endif 

if  upper(ans)  =  *Y' 
return 
else 

return 
endi  f 
enddo 
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X  X 
*  Module  Name:  WELCOME. PRG  x 
X  X 
X  Author:  Tom  Trotter  x 
x  x 
X  Purpose:  This  module  displays  the  intital  welcome  banner  and  * 
x  describes  the  current  disk  configuration  * 
x  x 
X  This  module  is  called  by:  MAIN. PRG  x 
x  x 
X  This  module  calls:  N  /  A  x 
x  x 
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SAY  "WELCOME  TO  THE  NPS  SUPPLY  REQUISITION  DATABASE" 

3  6,8  SAY  "This  program  is  designed  to  originate  requisition  documents" 

3  7,8  SAY  "(DD-1348s  and  SF-36s),  as  well  as  maintain  a  database  of" 

3  8,8  SAY  "requisition  status  for  a  particular  department.  The  system" 

3  9,8  SAY  "is  designed  for  use  by  any  personnel  who  are  familiar  with" 

3  10,8  SAY  "Naval  Supply  terminology,  however,  a  detailed  understanding" 

3  11,8  SAY  "of  the  decision  matrix  used  in  the  generation  of  requisition" 
3  12,8  SAY  "documents  is  unnecessary." 

3  16,8  SAY  "WARNING  -  If  the  user  fails  to  adhere  to  any  warnings" 

3  16,63  SAY  "presented" 

3  17,19  SAY  "by  the  program,  he  does  so  at  the  risk  of  data  loss." 

3  19,19  SAY  "Disks  should  NEVER  be  removed  from  the  drives  until" 

3  20,19  SAY  "the  program  has  been  exited." 

? 

T 

wait  '  Press  a  key  to  continue. . . * 

restore  from  config.var 

clear 

3  4,30  SAY  "LOAD  DISK  DRIVES" 

3  5,30  SAY  " - " 

3  7,27  SAY  "Database  Disk  Location" 
if  c_sdrv  =  c_adrv 

3  10,20  SAY  "Accounts/Supplier  Disk:  °  '  Drive" 

3  10,46  SAY  c_adrv 
else 

3  9,27  SAY  "Suppliers:  0  •  Drive" 

3  9,41  SAY  c_sdrv 

3  11,27  SAY  "Accounts:  0  *  Drive" 

a  11,41  SAY  c_adrv 

endif 

3  16,9  SAY  "Ensure  that  the  disk  drives  are  properly  loaded  before" 

3  16,64  SAY  "proceeding!" 

? 

? 

wait  '  Press  a  key  to  continue...* 

return 
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